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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

THIS IS A SBC- 11/21* RESID€NT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OT A TSV05 MAGTAPE SUBSYSTEM WHILE CONNECTED TO A SBC -11/21* SYSTEM 
(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIFY FAILING 
FACTIONS THAT AIO IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOCPS 
ON CERTAIN FUNCTIONS. 



THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOFTWARE (SUPERVISOR), THESE SERVICES PROVIDE 
THE INTERFACE TO THE OPERATOR ANO TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BE USED WITH XXDP*, ACT. APT, SLIDE ANO PAPER 
TAPE. FOR A COMPLETE DESCRIPTION Of THE RUNTIME SERVICES, REFER 
TO THE XXDP* USER'S MAf*JAL . THERE IS A BRIEF DESCRIPTION OF 
THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 

1.2 SYSTEM REQUIREMENTS 

SBC -1 1/21 • PROCESSOR AND MEMORY 

CAUTION:DIAGNOS T IC REQUIRES 52K WOROS OF MEMORY 
(28K USEABLE AND 4K RESERVED FOR I/O PAGE) 
TSV05 MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 
PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATfcRl 
PDP-11 DIAGNOSTIC LOADER /MONITOR (XXDPO 



1.3 RELATED DOCUMENTS AND STANOARDS 
DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 

1. XXDP* USERS GUIDE 

2. TSV05 TRANSPORT SUBSYSTEM USER'S GUIDE 

3. TSV05 TRANSPORT SUBSYSTEM TECHNICAL MANUAL 

4. TSV05 TRANSPORT Sl«SYSTEM INSTALLATION MANUAL 



1.4 DIAGNOSTIC MIERARCY PREREQUISITES 

FICTIONAL SBC-U/21* CENTRAL PROCESSOR ANO MEMORY 
FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
FUNCTIONAL DIAGN0S1 IC LOADER/MONITOR' UXQPt ) 
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ALL hardware except the hardware under test is assumed to work 

PROPERLY OR FALSE ERRORS CAN BE REPORTED. 

THE TAPE BEING USED ON THE TS05 TRANSPORT IS A KNOWN GOOD REEL 

OF TAPE, 

CNTSAA HAS RUN SUCESSFULLY. 

2.0 OPERATING INSTRUCTIONS 

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP* USER'S MANUAL. 

2.1 COMMANDS 

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 
(SUPERVISOR). THIS SECTION LISTS THE COMMANOS ANO GIVES A VERY 
BRIEF DESCRIPTION OF THEM. THE XXDP* USER'S MANUAL HAS MORE DETAILS. 

COMMANO EFFECT 



START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER *C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP» MONITOR (XxDP» OPERATION ONLY?) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

CONSIDERED TO BE ACTIVE AT SI ART TIME 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 

A COMMANO CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO 
YOU MAY, FOR EXAMPLE, TYPE "STA" INSTEAD OF "START". 

2.1.1 OPERATOR COMMANOS 



THE TSV05 DIAGNOSTIC IS A SBC-11/21* DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING ANO RUNTIME INSTRUCTIONS CAN BE* R&F£R£NCkO IH THE 
XXDP* USERS GUIDE. THE USER ENTRY IS IN QUOTES* 



BOOT THE DIAGNOSTIC MEDIA 



.R NTSB?? 

DIAG. RUNTIME SERVICES REV D. APR 79 

CNTSB-A-0 

.••♦•T-SVQ5 LOGIC - -DIAGNOSTIC**** 

UNIT IS. T&VQ5- 
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2.2 SWITCHES 

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENOED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH, 
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY "DDDDD". 

SWITCH EFFECT 



/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN 

THE LIST. LIST IS A STRING OF TEST 
NUMBERS, FOR EXAMPLE - /TESTS: 1 :5: 7-10, 
THIS LIST WILL CAUSE TESTS 1,5,7.8.9.10 TO 
BE SUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS: DDDDD EXECUTE DDDDD PASSES (DOODD • 1 TO 64000) 

/FLAGS :FLGS SET SPECIFIED FLAGS. FLAGS ARE DESCRIBED 

IN SECTION 2.3. 

/EOP: DDDDD REPORT END OF PASS MESSAGE AFTER EVERY 

DDDDD PASSES ONLY. (DDDDD • 1 TO 64000) 

/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS :0: 5: 10- 12 
USE UNITS 0,5.10,11,12 (UNIT NUMBERS * 0-63) 

EXAMPLE OF SWITCH USAGE: 

START/TESTS t 1 -5/PASS: 1000/EOP: 100 

THF. EFFECT OF THIS COWAND WILL BE: 1) TESTS 1 THROUGH f, WILL BE 
EXECUTED, 2) ALL LUITS WILL TESTED 1000 TIMCS ANO 5) THE ENO OF 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A 
SWITCH CAN BE RECOGNIZED BY THE FI3ST THREE CHARACTERS. YOU MAY, 
FOR EXAMPLE, TYPE "/TES:l-5" INSTEAD OF "/TESTS: 1 -5". 

BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMANO. 

TESTS PASS FLAGS EOP UNITS 

START XX XX X 

RESTART XX XX X 

CONTINUE X XX 

"PROCEED X 

DROP X 

ADO X 

PRINT 

DISPLAY x 

FLAGS 
/FLAGS 
EXIT 

2.3 FLAGS 

FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR, ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SUITCH, FLAGS 
ABE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
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FLAG SWITCH. THE Z^LAGS COMMAND MAY ALSO BE USED TO CLEAR 
ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANOS AFFECT THE STATE OF THE FLAGS i THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 

FLAG EFFECT 



HOE HALT ON ERROR - CONTROL IS RETURNED TO 

RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS 

I8R* INHIBIT ALL ERROR REPORTS EXCEPT 

FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 

CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM ^ATTENDED MOOE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 

APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IOR INHIBIT PROGRAM DROPPING OF UNI1S 

ADR EXECUTE AUTOOROP CODE 

LOT LOOP ON TEST 

♦ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 

SEE THE XXDP* USER'S MANUAL FOR MORE DETAILS ON FLAGS, YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSF THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
ANO TYPE A "BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 

/FLAGS ; LOE tIERj BOE 



2.4 HARDWARE QUESTIONS 

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING "CHANGE HW (L) ?" 
YOU MUST ANSWER "Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED" USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF TH* XXDP* USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A "Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS (IN DECIMAL). 

AFTER INITIAL STARTING OF THE PROGRAM (START COMMANO TO THE DIAGNOSTIC 
SUPERVISOR). THE PROGRAM WILL ISSUE THE "CHANGE HW?" QUESTION TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 

ON A "N" (NO) RESPONSE TO THE "CHANGE HW?" QUESTION, THE DIAGNOSTIC WILL 

RUN USING THE DEFAULT VALUES FQR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE 
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TSBA/TSDB - 176000, VECTOR - 224 

ON A »Y" (YES) RESPONSE TO THE QUESTION. THE FOLLOWING QUESTIONS WILL 
THEN BE ASKED TO ALLOW THE CURATOR TO SELECT ThE UNITS TO BE TESTED. A 
VALUE, IF PRESENT, LOCATED TO THE LEFT OF THE QUESTION MARK IS THE 
DEFAULT VALUE THAT WILL BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A "(D)" IN A QUESTION INDICATES THAT A DECIMAL NUMBER IS 
REQUIRED AS A RESPONSE. AN "(0)" INOICATES AN OCTAL NUMBER IS BEING 
SOLICITED. AN "CD" IN0ICATE5 THAT A LOGICAL RESPONSE IS TO BE MADE t 
"Y" FOR YES, "N" FOR NO. 



UNITS (D) ? 



UNIT 



<EN T ER THE NUMBER OF M7196 CONTROLLERS 
PRuSENT TO BE TESTED* 



DEVICE ADDRESS 
VECTOR (0) 224 ? 



CO) 176000 ? < ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER* 

<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADORES., AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 

LUITS CCONTROLLERS) SPECIFIED IN THE "# "JNITS?" QUESTION. LOGICAL UNIT 

NLf«ERS ARE ASSIGNED IN OROER, BEGINNING AT 0. UP TO r OUR UNITS CAN BF 
SELECTED FOR TESTING AS FOLLOWS: 

UP TO 4 TSV05 CONTROLLERS PER 11/21* ANO UP TO 2 DRiVES PER CONTROLLER 

2.5 SOFTWARE QUESTIONS 

AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 

OR CONTINUE COMMAND. THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 

PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 

OPERATION MOOES. YOU WILL BE PROMPTED By "CHANGE SW (L) ?" 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

"Y". THE SOFTWARE QUESTIONS ANO THE DEFAULT VALUES ARE DESCRIBED 

IN THE NEXT PARAGRAPHC S ) . 



THE FOLLOWING QUESTIONS ARE ASKED ON A START. RESTART, 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW CD ? <TyPL Y TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED> 



OR CONTINUE 



INHIBIT ITERATIONS CD N ? 



<TYPE "Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK -RUNNING LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 



?.h EXTENDED P-TABLE DIALOGUE 



WHEN tOU ANSWER ThC HARDWARE QUESTIONS, fOU ARL BUILDING ENTRIES 
JN \ TABLE THAT 0E5CRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
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WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
INIT TO BE TESTED. IF YOU HAVE A MULTIPLEXED OEVICE SUCH AS 
A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 

TO ILLUSTRATE A MORE EFFICIENT METHOO. SIPPOSE YOU ARE TESTING 
A DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT, 
THESE UNITS ARE DESCRIBED BY THE OCTAL NLt«ERS THROUGH 7. THERE 
IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR, THIS Q-FACTOR MAY BE OR 1, BELOW IS A SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 

* UNITS CD) ? 8<CR> 

UNIT 1 

CSR ADDRC3S (0) ? 160000<CR> 
SUB-DEVICE * CO) ? 0<CR> 
Q-FACTOR (0) ? 1<CR> 

UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 1<CR> 
Q-FACTOR (0) 1 ? 0<CR> 

UNIT S 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE (0) ? 2<CR> 
Q-FACTOR CO) ? <CR> 

UNIT i 

CSk ADDRESS CO) ? 160000<CR> 
SUB DEVICE * CO) ? 3<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 5 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE CO) ? 4<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 6 

CSR ADDRESS CO) ? 160OO0<CR> 
SUB-DEVICE * CO) ? 5<CR> 
Q-FACTOR CO) ? <CR> 

UNIT 7 

CSR ADDRESS (0) ? 160000 <CR> 
SUB-DEVICE CO) ? 6<CR> 
G-FACTOR (0) ? 1<CR> 

UNIT 8 

CSR ADDRESS '0) 160000<CR> 

SUB-DEVICE CO) ? 7<CR> 
Q-FACTOR CO) 1 ? <CR> 

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
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NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WKEN SPECIFYING 
MULTIPLE UNITS! 

AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 

NOT VERY EFFICIENT. 

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET'S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION 
FEATURE. 

UNITS (D) ? 8<CR> 

UNiT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE * (0) ? 0.i<CR> 
Q-FACTOR CO) ? 1,0<CR> 

UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE P (0) ? 2-5<CR> 
Q-FACTOR (0) ? 0<CR> 

WIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SU6-0EVICE * CO) ? 6,7<CR> 
Q-FACTOR CO) ? 1<CR> 

AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIMF SERVICES UILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS, IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTDRS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADORESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECONO PASS, FOUR ENTRIES WERE 
BUILT. THIS IS BECAUSE FOUR SUB -DEVICES WERE SPECIFIED. THE 
**-" CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA 
FROM THE FIRST NUMBER TO THE SECONO. IN THIS CASE, SUB-DEVICES 
2. A. 4 AND 5 WERE SPECIFIED. C IF THE SUB-DEVICE WERE SPECIFIED 
BY ADDRESSES. THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADORFSSES ANO Q-FACTORS FOR 
THE FOU* ENTRIES ARE ASSUMED TO BE 160000 ANO RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN OELOW. 

* UNITS (D) ? 6<CR> 

UNIT t 

CSR ADDRESS CO) ? 160000<CR> 
SLB-DEVICE CO) ? 0~7<CR> 
Q-FACTOR CO) ? 0, 1 ,0, . , , 1. 1<CR> 

AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES C COMMAS ENCLOSING 
A NULL FIELD } TELL TME RUNTIME SERVICES TO REPEAT THE LAST REPLY* 
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2.7 QUICK START-UP PROCEDURE (XXDPO 
TO START-UP THIS PROGRAM: 

1. BOOT XXDP* 

2. GIVE THE DATE AND ANSWER THE LSI AND 50HZ (IF THERE 
IS A CLOCK) QUESTIONS 

3. TYPE "R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILl FOR THIS PROGRAM 

4. TYPE "Sr-.fi r " 

5. ANSWER THH 'CHANGE HW" QUESTION WITH "Y" 

6. ANSWER ALL Tl-fe HARDWARE QUESTIONS 

7. ANSWER THE "CHANGE SW" QUESTION WITH "N" 

WHEN YOU . XLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS I JR FLAGS AND SOFTWARE PARAMETERS, THESE DEFALT. TS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

3.0 ERROR INFORMATION 

3.1 TYPES OF ERROR MESSAGES 

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE 7SSUED BY 
A DIAGNOSTIC: GENERAL. BASIC ANO EXTENDED. GENERAL ERROR MESSAGES 
AR». ALWAYS PRINTED LNLESS THE "IER" FLAG IS SET (SECTION 2.3). 
THE GENERAL ERROR MESSAGE IS OF THE FORM: 

NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PCjXXXXXX 
ERROR MESSAGE 

.WHERE i NAME - DIAGNOSTIC NAME 

TYPE - ERROR TYPE (SYS FATAL, DEV FATAL. HARD OR SOFT) 

NUMBER • ERROR TIMBER 

UNIT NW6ER - - N CN IS LAST UNIT IN PTABLE) 

TST NUMBER - TEST ANO SUBTEST WHERE ERROR OCCURRED 

PC:XXXXXX - ADDRESS OF ERROR MESSAGE CALL 

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS 
THE "IER" OR "IBR" FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 

EXTENOED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS 
PRINTED UNLESS THE "IER", "IBR" OR "IXR ' FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE ANO ANY ASSOCIATED BASIC ERROR MESSAGES. 

S.E SPECIFIC ERROR MESSAGES 

8&LQW ARE SAMPLE ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 
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OF ERRORS DETECTED BY THIS DIAGNOSTIC. 

ERROR MESSAGE EXAMPLE 1 

THIS ERROR lb INDICATIVE Of AN INCORRECT REGISTER OR STATUS WORD RETURNED 
TO THE DIAGNOSTIC, Th£ FIRST PART DEFINES THE TEST FUNCTION AND UNIT THAT FAILED 
THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR THE 
INCORRECT REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 
DATA. 



TST: 016 FIFO EXERCISER TEST 

CNTSB HRD ERR 01610 ON UNIT 00 TST 016 SUB 002 PC: 040624 

FIFO 3TATUS C IN WORD 9) INCORRECT AFTER WRITE FIFO 



TAPE BUS SIGNALS IN WORD 08: - DESIGNATOR 
PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
IRESV2<14> IIDENT<11> IHER <8> I0NL<5> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 

TAPE BUS SIGINALS IN WORD 09: 
DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4> 

MESSAGE BUFFER ADDRESS • 047352 

MESSAGE BUFFER CONTENTS: 
WORD 00 EXPD: 100020 RECV : 



<BIT 0> 
IRWD<2> 

ifjy<i> 

IFPT<0> 



WORD 01 c .XPO: 
WORD 02 EXPD: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



03 EXPD: 
♦4 EXPO: 

05 EXPD: 

06 EXPD: 

07 EXPD: 

08 EXPD: 

09 EXPD: 



000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000074 



RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
RECV: 
HECV: 
RECV: 



100020 
000012 
000000 
000010 
000000 
000000 
000000 
000000 
070217 
000034 



X03: 
XOR: 
XOR: 
XOR: 
XOR. 

XOR: 
XOR: 
XOR: 
XOR: 
XOR: 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000040 



ERROR MESSAGE EXAMPLE 2 

THIS ERROR SHOWC A FATAL FUNCTION ERROR FROM THE TAPE DRIVE, IN THIS 
INSTANCE A UNRECOVERABLE ERROR OCCURED WHICH INDICATES VHAT THE CONTROLLER 
MAY BE DEFECTIVE. 

CNTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
TSSR NOT CORREP AFTER SPACE RECORDS COMMAND 

TSSR • 100214 

TSSR BITS SET: SC,SSR 

TERMINATION CLASS CODE - 

PAC'ET ADDRESS - 026420 

PACKET WORD » 140010 

PACKET WORD - 000010 

PACKET WORD - 000000 

PACKET WORD - 000024 



UNRECOVERABLE ERROR 



ERROR MESSAGE EXAMPLE 3 
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THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 

CNTSB HRD ERR 0O121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPO: 000312 RECV: 000112 XOR : 000200 

4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUM8ER OF ERRORS REPORTED SINCE I HE DIAGNOSTIC WAS STARTED. 
THE "EOP" SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 
OF PASS MESSAGE IS PRINTED. SECTION 2,2 DESCRIBES SWITCHES, 

SUCCESSFUL RUN EXAMPLE (SBC-11/210 

DR>STA/FLA : PNT : HOE : UAM 

UNITS (D) ? 1 

UNIT 

DEVICE ADDRESS (0) 176000 ? <CR> 

VECTOR CO) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 
SWITCHES ON WHICH ARE "PRINT EACH TEST NBR AS EXECUTED" , "HALT ON 
ERROR" AND "RUN IN UNATTENDED MODE". 

NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 

TST: 001 INITIALIZE 03 TEST 

TST: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 

TST: 003 DMA MEMORY ADDRESSING TEST 

TST: 004 RAM EXERCISER TEST 

TST: 005 FIFO EXERCISER TEST 

TV!: 006 STATIC TRANSPORT BUS CHECK 

1ST: 007 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 

TST: 006 READ/WRITE DATA PARITY CHECK TEST 

TST: 009 MISCELLANEOUS LOGIC CHECKS TEST 

TST: 010 STANO -ALONE MANUAL INTERVENTION NOT EXECUTED TEST 

TST: Oil STANO-ALONE CONFIGURATION TYPEOUT NOT EXECUTED TEST 

TST: 012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 



ERRORS 

NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE "/PASS:" SWITCH. 



Nl 
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PROGRAM RUN TIMES 



SEQ 0013 



THE AVERAGE RUN TIMES OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES APE 



TO BE USED 
PROCESSOR. 



AS A GUIDE, THE TIMING WAS DONE ON A FALCON ♦ 



THE PROGRAM RUNS IN TWO MOOES j NO ITERATIONS AND DEFAULT MODE. IN THE 

NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 

DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 

THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A "Y" (YES). 

THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 

Q.V. 2 MINS 15 SECONDS 
DEFAULT 12 MINUTES 

MORE EXHAUSTIVE CHECKS ARE AVAILABLE BY hLLOWING THE DIAGNOSTIC PROGRAMS 
TO RUN FOR MOHE THAN ONE PASS. THE SECOND PASS OF THE PROGRAM IS MORE 
COMPREHENSIVE THAN THE FIRST PASS. ALL ITERATIONS AFTER THE FIRST PASS 
ARE THE SAME, HOWEVER, THEY ARE SUBSTANTIALLY LONGER. 

5.0 DEVICE INFORMATION TABLES 

WHENEVER THE PROGRAM IS STARTED. VIA THE STA(RT) COMMAND, 
THE SUPERVISOR REQUESTS THE FOLLOWING P-TABLES PARAMETER 
CKANGES: 



CHANGE HW (L) ? 
UNITS (D) ? 



<ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 



UNIT 



DEVICE ADDRESS (0) 176000 ? 



<ENTER THE ADDRESS OF 
TSBA/TSDB REGISTER* 



THE 



VECTOR CO) 224 ? 



<ENTER ADDRESS 
VECTOR> 



OF INTERRUPT 



THE ADDRESS AND VECTOR QUESTIONS WILL. BE ASKEO FOR EACH OF THE NUMBER OF 

UNITS (CONTROLLERS) SPECIFIED IN THE "Q UNITS?" QUES1I0N. LOGICAL UNIT 

NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING. 



IN ADDITION, ON A START 



REQUESTS 

FOLLOWS; 



CHANGES TO THE 



RESTART OR CONTINUE THE SUPERVISOR 
SOFTWARE 0PEHAT1NG PARAMETERS, AS 



CHANGE SW ( L ) 



B 



C. 
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SEQ 0014 



6,0 TEST SUMMARIES 

TEST l? INITIALIZE AFTER WRITE CHARACTERISTICS 

TEST DESCRIPTION: 

THIS TEST VERIFIES THAT A HARDWARE INITIALIZE COMMAND 
INVOKED AFTER A WRITE CHARACTERISTICS COMMAND SETS UP 
THE COMMAND. MESSAGE ANO CHARACTERISTIC IMAGE BLOCKS 
IN THE CONTROLLER RAM CORRECTLY, 

TEST 2t BASIC WRITE SUBSYSTEM MEMORY COMMANO 

THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY. IT ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MOOE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECOOING AND HANDLING SEQUENCES, 

TEST 3j DMA MEMORY ADORESSING 

THIS TEST VERIFIES THAT THE CONTROLLER CAN PROPERLY ADORESS ANO 
ACCESS ALL AVAILABLE CPU MEMORY (OTHER THAN THAT OCCUPIED BY THE 
DIAGNOSTIC AND DIAGNOSTIC SUPERVISOR COOE) FOR BOTH READING (OATI) 
AM) WRITING (DATO). VERIFIED ARE THE LSI 11 BUS DRIVERS FOR ALL 
AVAILABLE ADORESS LINES. UP TO THIS POINT ONLY 16 BITS HAVE BEEN 
USED FOR DMA TRANSFERS. 

CAUTION 

THE LSI BUS DRIVERS FOR ALL AVAILABLE ADORESS LINES 
ARE ONLY CHECKED WHEN RLWNING ON A li/Pl» SYSTEM WITH MORE THAN 
128K WOROS OF MEMORY} 



TEST 4{ RAM EXERCISER TEST 

THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND ?56 
LOCATIONS) SELECT COOES OF THE WRITE SUBSYSTEM MEMORY COMMANO 
TO EXERCISE THE CONTROLLER'S RAM MEMORY ANO DMA LOGIC 



TEST 5| EXTENDEO FEATURES SWITCH ANO TIMERS A,B 

TEf,T DESCRIPTION; 

THIS TEST VERIFIES THE INVERT EXTENDED FEATURES FUNCTION 
CAN LOGICALLY INVERT THE EXTENDED FEATURES SWITCH ANO 
THAT THE INTERNAL TIMERS A ANO B OPERATE CORRECTLY. 



L/C- 
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SEQ 0015 

TEST 6s FIFO EXERCISER 

TEST DESCRIPTION} 

THIS TEST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
VERIFY THE CONTROLLER'S FIFO ANO ASSOCIATED STATUS AND 
CONTROL LOGIC, 

TEST 7 5 STATIC TRANSPORT BUS INTERFACE TEST 

TEST DESCRIPTIONS 

WRITE TO TSSR REGISTER TO SOFT INITIALIZE THE CONTROLLER 

DO UUTE CHARACTERISTICS TO CHECK FOR EXTENDED FEATURES SWITCH 

IF EXTENDED FEATURES HAROWARE SWITCH CLEAR THEN: 

DO WRITE SUBSYSTEM WRITE MISCELLANEOUS TO SET EXTENDED FEATURES. 
DO WRITE CHARACTERISTICS TO SELECT RESERVED 1*JIT 7 
DO A WRITE SUBSYSTEM REAO STATUS 
IF ANY TRANSPORT INTERFACE SIGNALS ARE ASSERTED THEN PRINT ERROR 

TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 

TEST DESCRIPTION; 

THIS TEST VERIFIES THE CONTROLLER'S TRANSPORT BUS 
DRIVERS. RECEIVERS, AND SIGNAL LOOPBACK LOGIC. NOTE 
THAT THE STATIC TRANSPORT BUS TEST MUST HAVE RUN 
CORRECTLY FOR THIS TEST TO PROVIDE MEANINGFUL RESULTS, 

TEST 9s READ/WRITE DATA PARITY TEST 

TEST DESCRIPTION} 

THIS TEST VERIFIES THAT THE WRITE DATA PARITY GENERAH* 

AND THE READ DATA PARITY COCKER OPERATE PROPERLY. THE 

TRANSPORT BUS SIGNAL LOOPBACK MOOE IS ENABLED AND A 

SET WRONG PARITY FUNCTION IS EXECUTED. THEN VARIOUS 

WRITE SUBSYSTEM MEMORY FUNCTIONS ARE PERFORMED TO 

WRITE DATA TO AND FROM THE FIFO IN LOOPBACK MOOE. 

THE PROGRAM THEN CHECKS TO INSURE A READ DATA PARITY 

ERROR OCCURRED 

A RESET FIFO IS DONE AND THE REAO DATA PARITY 

ERROR BIT IS AGAIN TESTED TO INSURE IT CLEARED, 

FINALLY A CLEAR WRONG PARITY FUNCTION IS DONE 

AND IT IS VERIFIED THE DATA WORD CAN PASS IN LOOPBACK 

MODE WITHOUT SETTING READ DATA PARITY ERROR, 

TEST 10? MANUAL INTERVENTION 

T*E MANUAL INTERVENTION TEST IS A STANDALONE ROUTINE (NOT REALLY A "TEST") 
TMT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THV SUBSYSTEM THAT CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE. IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SL6TESTS ANO THEN WAITS FQR UC OPERATOR TO TYPE IN A SELECTION COOE . 
THE QNLY WAYS TQ EXIT THIS RQUUNt AND RETUfW TQ THE DIAGNOSTIC SUPERVISOR 



D 



d 
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SEQ 00X6 

ARE BY TYPING <CTRL-C> OR SELECTING CODE 6, 
SELECTION CODES AND SUBROUTINES ARE* 

CODE ROUTINE 

HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7196 LED INDICATORS 

2 TURN OFF ALL M7196 LED INDICATORS 

3 OFFLINE/ONLINE ATTENTION TEST 

4 WRITE-PROTECT TEST 

5 PRINT EXTENOED TRANSPORT STATUS 

6 EXIT (RETURN TO SUPERVISOR) 

TEST lit CONFIGURATION TYPEOUT 

THIS IS A STANOALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7196 MOOULE AND TSV05 SUBSYSTEM, SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE H7196; ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 

3.0 MICROCOOE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER. 

5,0 UNIT SELECT COOE AND STATE ( ONLINE /OF FL INE . WRITE ENABLED/PROTECTED) 
OF EACH CONNECTEO TRANSPORT, IN ADDITION. THE PROGRAM WILL INDICATE. 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENOED TAPE STATUS READOUT FEATURE. 

TEST 12: CCOPE LOOPS 

THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "SCOPF 
LOOPS" USEFUL FOR DEBUGGING BASrC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MOOULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST)" FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TESTS (I.E. THE HARDWARE MAY NOT BE RESPONOING TO A REGISTEF1 
ACCESS, CAUSING A BUS ERROR TRAP, EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHE5 THE CONFIGURATION SET UP IN THE. 
HARDWARE DIP SWITCHES), THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE; 

CODE SCOPE LOOP 

HELP, PRINT THIS MENU. 

1 TSBA READ ACCESS 
i? TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCbSS) 



E2 
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SEQ OOX7 

4 TSDB HIGH BYTE WRITE ACCESS 

5 TSOB LOW BYTE WRITE ACCESS 

6 TSDB MAINTENANCE -MODE WORD WRITE ACCESS 

7 TSDBX (TSSR HIGH BYTE) WRITE ACCESS 

(EXTENOED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 

8 EXIT (RETURN TO SUPERVISOR) 

FOR SCOPE LOOPS THAT WRITE INTO REGISTERS. THE PROGRAM PROMPTS 

THE OPERATOR FOR THE DATA TO BE WRITTEN, LIMITS ON THE DATA PATTENS 

ARE 0-377. TYPING <RETUWN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 

7,0 MAINTENANCE HISTORY 

REVISION A - MARCH 1982 

REVISION B - APRIL 1983 

MOOIFIED THE DIAGNOSTIC TO HANOLE 11/23A'S 
WITH MORE THAN 256KB Of" MEMORY. CHANGED 
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS CNXM). 

CVTSBBO «> CNTS8A0 JAKI BERG 9- APR. 1984 

CHANGES WERE MADE TO CVTSBBO TO PRODUCE CNTSBAO FOR THE 
FALCON-PLUS PROJECT (SBC-11/210. CHANGES, MARKED BY 
u , to pry A-0" ARE* 

- SET THE'OOT BREAK VECTOR (LOCATION 140) TO THE 
STARTING ADDRESS Of FALCON'S OOT ROM ( 170000 -OCTAL ) . 
• LOWER THE GENERAL INTERRUPT PRIORITY FROM 7 TO 6, 

- CHANGE DEFAULT CSR ADDRESS FROM 172540 TO 176000. 
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F2 



SEQ 0018 



2 

3 

4 
10 

11 000000 
12 
13 

19 000000 
20 

21 002000 
002000 
22 
25 
24 
25 
26 
27 

28 002000 

29 002000 
002000 
002000 
002001 
002002 
002003 
002004 
002005 
002006 
002007 
002010 
002010 
002011 
002011 
002012 
002012 
002014 
002014 
002016 
002016 
002020 
002020 
002022 
002022 
002024 
002024 
002026 
002026 
002030 
00203O 

002032 

C02032 
002034 
002034 
002036 
002036 
002040 
002040 
002042 



002000 



103 
116 
124 
123 
102 
000 
000 
000 

102 

060 

000000 

001217 

101412 

101544 

002156 

002166 

102404 

000000 

000000 

000000 

000000 

Q02124 



TSV2: 



i ♦♦ 



.TITLE 


TSV2 - PROGRAM HEADER 


.SBTTL 


PROGRAM HEADER 


.MCALL 


SVC 


SVC 


j INI 


.ENABLE 


LC 


.NLIST 


BEX.CND 


. ENABL 


ABS.AMA 


. -2000 




BGNMOD 


TSV2 



) INITIALIZE SUPERVISOR MACROS 



} THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
I THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 
I -- 

POINTER BGNSW,3GNSFT,BGNAU,BGNDU,BGNRP T 

HEADER CNTSB.B, 0,655. ,0 
LINAMRu jDIAGNOSTIC NAME 

.ASCII /C/ 

.ASCII /U/ 

.ASCII /T/ 

.ASCII /S/ 

.ASCII /B/ 

.BYTE 

.BYTE 

.BYTE 



L*REV: 

L1DEP0 

LIUNIT 

LITIML 

LIHPCP 

LISPCP 

LIHPTP 

L*SPTP 

LILADP 

LISTA: 

L*CO: : 

LIDTYPj j 

LtAPT; ; 

LIDTP: j 

L*PRIO{} 



jREVISION LEVEL 
JO 

jNUMBER OF UNITS 
jLONGEST TEST TIME 
iPOINTER TO H.W. QUES. 
jPOINTER TO 5.W. QUES. 
iPTR. TO DEF. H.W. PTABLE 
jPTR. TO S.W. PTABLE 
jDIAG. END ADDRESS 
jRESERVED FOR APT STATS 

jDIAGNOSTIC TYPE 
I APT EXPANSION 



.ASCII /B/ 

.ASCII /O/ 

.WORD 

.WORD 655. 

.WORD LIHARD 

.WORD LtSOFT 

.WORD LfHW 

.WORD LISW 

.WORD L$LAST 

. WORD 

.WORD 

.WORD 

.WORD 

jPTR. TO DISPATCH TABLE 

.WORD L IDISPATCH 

jDIAGNOSTIC RUN PRIORITY 



G2 
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SEQ 0019 



002042 


OOOOOC 


002044 




002044 


000000 


002046 




002046 


000000 


002050 




002050 


003 


002051 


003 


002052 




002052 


000000 


002054 


000000 


002056 




002056 


000000 


002060 




002060 


003402 


O02062 




002062 


022712 


002064 




002064 


000000 


002066 




002066 


OOOOOO 


002070 




002070 


022400 


002072 




002072 


0224 76 


002074 




002074 


OOOOOO 


002076 




002076 


003410 


002100 




002100 


104035 


002102 




002102 


OOOOOO 


002104 




C02104 


021556 


002106 




002106 


022664 


002110 




002110 


022604 


002112 




002112 


021546 


002114 




002114 


OOOOOO 


002116 




002116 


OOOOOO 


002120 




002120 


OOOOOO 





.WORD 





L$ENVI: 








'.WORD 





LtEXPl: 








* .WORD 





LJMREV: 








'.BYTE 


CIREVIS 




.BYTE 


riEDIT 


L*EF:: 








.WORD 







.WORD 





USPC;: 








.WORD 





L$DEVP; 








'.WORD 


LIOVTYP 


UREPP; 








* , WORD 


LIRPT 


LIEXP4; 








* . WORD 





LIEXP5: 








* .WORD 





l*AUT 5 ; 








.WORD 


L$AU 


l*DUT:; 








.WORD 


LIDU 


LtLUN: t 








.WORD 





LJDESPt 


• 






.WORD 


LIDESC 


L$LOAO: 


j 






EMT 


E*LOAD 


LIETP: : 








.WORD 





LIICP:: 








.WORD 


LIINIT 


LICCP: : 








.WORD 


LICLEAN 


LIACP:: 








.WORD 


LfAUTO 


LiPRT: : 








.WORD 


LIPROT 


LITEST: 


; 






.WORD 





LIDLY: : 








.WORD 





L*HIM£j 


• 






.WORD 


Q 



I FLAGS DESCRIBE HOW IT WAS SETUP 

I EXPANSION WORD 

j SVC REV AND EDIT 
ON 

tDIAG. EVENT FLAGS 



j POINTER TO DEVICE TYPE LIST 
jPTR, TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

iPTR, TO DROP UNIT CODE 

lLON FOR EXERCISERS TO FILL 

jPOINTER TO DIAG. DESCRIPTION 

iGENERATE SPECIAL AUTOLOAD EMT 

iPOINTER TO ERRTBL 

jPTR, TO INIT CODE 

|PTR. TO CLEAN-UP CODE 

iPTR. TO AUTO CODE 

jPTR, TO PROTECT TABLE 

I TEST NUMBER 

iDELAY COLNT 

iPTR* TO HIGH MEM 
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H2 



SEQ 0020 



M 

32 

33 

34 

35 

36 

37 

35 002122 
002122 
002124 
002124 
002126 
002130 
002132 
002134 
0021V) 
002140 
002142 
002144 
002146 
00^:0 
00215.? 



.SBTTL DISPATCH TABLE 

1 ♦ » 

I THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST 

j IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST, 

* -- 



0CO014 

0234 74 
024456 
026450 
032044 
034634 
040426 
050540 
052020 
062646 
066716 
074560 
077732 



DISPATCH 12 


.UORD 


12 


L IDISPATCH; : 




.UORD 


Tl 


.WORD 


T2 


.WORD 


T3 


.WORD 


T4 


.WORD 


T5 


.UORD 


T6 


.WORD 


T7 


.WORD 


T8 


.WORD 


T9 


.UORD 


T10 


.UOPD 


Til 


.UORD 


T12 
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12 



seq ooai 



40 
41 
42 
45 
44 
45 
46 
47 



48 
49 

50 
51 
b2 



002154 
002154 
002156 
002156 

002156 
002160 
002162 
002164 
002164 



.SBTTL DEFAULT HARDWARE P-TABLE 



THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
IS IDENTICAL TO THE STRUCTURE OF THE RUN- TIME P-TABLE, 



000003 



1 76000 
000224 
000200 



L$HW: : 
DFPTBL; 



LiOOOOt 



BGNHW 
.WORD 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 

L10000-LIHW/2 



176000 

224 

PRI04 



i DEFAULT HARD-P-TABLE 



i 1ST (OF 2) REGISTERS. 
I INTERRUPT VECTOR 
j INTERRUPT PRIORITY. 



J2 
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54 

55 

56 

57 

58 

59 

60 002164 
002164 
002166 
002166 

61 

62 002166 

63 002170 
64 

65 

66 002172 

67 002174 

68 002176 
002176 

69 

70 002176 
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SEQ 0022 



000004 



000000 
000000 



000017 
000310 



.SBTTL SOFTWARE P-TABLE 

I ♦♦ 

l THE SOf'TWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 

j PARAMETERS THAT CAN BE CHANGED BY THl*. OPERATOR. 

I - - 

BGNSW SFPTBL 

.WORD L10001-LSSW/2 
L$SW: : 
SFPTBL:: 



TRANSTST:: .WORD 
NOTTS:: .WORD 



LERRMAX:: .WORD 15. 
GERRMAX:: .WORD 200, 

ENDSW 
LlQQQli 



i ENABLE TEST OF TRANSPORT(S) IF -1 

i INHIBIT ITERATION OPTION, 

j ... - ITERATE. 

1 . . .NZ • INHIBIT ITERATE. 

I LOCAL (PER TEST) ERROR LIMIT 

1 GLOBAL (P£R UNIT) ERROR LIMIT 



ENOMOO 



TSV3 - GLOBAL AREAS 
SOFTWARE P- TABLE 



7 

8 

13 

19 

20 



0021^ 
0021', j 



c'l 

22 

23 
24 
25 
26 
2 7 
28 
32 



002176 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
OOOOiO 
000004 
000002 
000001 

001000 
000400 
000200 
000100 
000040 
000020 
OOOOIO 
000004 
000002 
000001 



000040 
00003/ 
000036 
000035 
000034 
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l<2 



SEQ 0023 



TSV3:j 



i ♦♦ 



.TITLE TSV3 - GLOBAL AREAS 
.SBTTL GLOBAL EQUATES SECTION 



BGNMOD TSV3 



.SBTTL GLOBAL EQUATES SECTION 



THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
j ARE USED IN MORE THAN ONE TEST. 
I -- 



EQUALS 
j BIT DIFINITIONS 



I GET STANDARD EQUATES, 



BIT15- 


. 100000 


BIT14-- 


• 40000 


BIT13-- 


■ 20000 


BIT12" 


• 10000 


BIT11-. 


• 4000 


BIT10-' 


• 2000 


BIT09-- 


• 1000 


BIT08-« 


■ 400 


BIT07- 


■ 20C 


BIT06- 


■ 100 


BIT05-- 


■ 40 


BIT04-- 


' 20 


BIT03- 


■ 10 


BIT02- 


* 4 


BIT01- 


• 2 


BITOO-< 


• 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


Biros 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


BITt-- 


BIT01 


BITO-- 


BITOO 



j EVENT FLAG DEFINITIONS 
j EF32:EF17 RESERVED FOR 



J 
EF 


START-- 


32. 


E> 


.RESTART-- 


31. 


FF 


. CONTINUE* 


30. 


EF 


.NEW-- 


29, 


t'F 


,PWR*» 


2d. 



SUP&RVISOP TO PROGRAM COMMUNICATION 



BIT POSITION IN SECONO STATUS WORD 
(100000) START COMMANO WAS ISSUED 
(040000) RESTART COMMAND WAS ISSUED 
(020000) CONTINUE COMMAND WAS ISSUED 
(010000) A NEW PASS HAS BEEN STARTED 
(004000) A PQW£R-FAlL/PQW£R-gP QCCURR&D 



L 



.2 
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GLOBAL EQUATES SECTION 



000340 
000300 
000240 
000200 
000140 
000100 
000040 
000000 



000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
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SEQ 0024 



35 

34 002176 



000250 

177572 

177574 
1^7576 
173516 



I PRIORITY LEVEL DEFINITIONS 



PRI07-- 


340 




PRI06-- 


300 




PRI05-- 


240 




PRI04-- 


200 




PRI03-- 


140 




PRI02-- 


100 




PRI01"- 


40 




PRI00-- 







j OPERATOR FLAG 1 


BITS 


EVL-- 


4 




L0T-- 


10 




ADR-- 


20 




IDU-- 


40 




ISR-- 


100 




UAM-» 


200 




BOE-- 


400 




PNT-- 


1000 




PRI-- 


2000 




IXE-- 


4000 




IBE-- 


10000 




IER-- 


20000 




LOE-- 


40000 




HOE-- 


100000 






KT11 


• « 


.SBTTL 


MEMORY 


MANAGEMENT DEFINITIONS 


i*KTll ' 


VECTOR ADDRESS 


MMVEC- 


250 




i*KTU : 


STATUS REGISTER ADDRESSES 


SRO- 


177572 




SR1- 


177574 




SR2- 


177576 




SR3- 


172516 




.IF N6 






i*USER 


"I" PAGE 


DESCRIPTOR REGISTERS 


UIPDRO- 


177600 




UIPDR1- 


177602 




UIP0R2- 


17 7604 




UIP0R3- 


177606 




UIPDR4- 


177610 




UIPDR5- 


177612 




UIPDR6- 


177614 




UIPDR7- 


177616 




.IF NB 






I*USER 


"D" PAGE 


DESCR* *TQR REGXSTGRS 


UOPDRO- 


17 7620 




U0PDR1- 


177622 




U0PDR2- 


17 7624 




U0PDR3- 


177626 




U0PDR4* 


177630 




U0PDR5- 


177632 




U0PC**6- 


17 7634 




UDPQR7* 


I776i6 





j DEFINE MEMORY MANAGEMENT REGISTERS 
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M2 



SEQ 0025 



.ENDC 




»*USER "I" PAGE 


ADDRESS REGISTERS 


UIPARO- 177640 




UIPAR1- 177642 




UIPAR2- 177644 




UIPAR3- 177646 




UIPAH4- 177650 




UIPAR5- 177652 




UIPAR6- 177654 




UTPAR7- 177656 




.1* N8 




} *USER "D" PAGE 


ADDRESS REGISTERS 


UOPARO- 177660 




U0PAR1- 177662 




U0PAR2- 177664 




U0PAR3- 177666 




UDPAR4- 177670 




UDPAR5- 177672 




U0PAR6- 177674 




U0PAR7- 177676 




.ENDC 




.ENDC 




.IF NB 




{♦SUPERVISOR "I* 


* PAGE DESCRIPTOR REGISTERS 


SIPDRO- 172200 




SIPDR1- 172202 




SIPDR2- 17 204 




SIPDR3- 1"/J?06 




SIPDR4- 172210 




SIPDR5" 172212 




5IPDR6- 172214 




SIPDR7* 172216 




.IF NB 




t*SUPERVIS0R "0' 


' PAGE DESCRXPTOR REGISTERS 


SDPDRO- 172220 




SDPDR1- 172222 




SDPDR2- 172224 




SDPDR3- 172226 




SDPDR4- 172230 




SDPDR5- 172232 




SDPDR6- 172234 




SDPDR7- 172236 




.ENOC 




^SUPERVISOR "I 1 


11 PAGE ADDRESS REGISTERS 


SIPAR0> 172240 




5IPAR1- 172242 




SIPAR2- 172244 




SIPAR3- 172246 




SIPAR4- 172250 




SIPAR5- 172252 




SIPAR6- 172254 




SIPAR7- 172256 




.IF NB 




j*SUPERVISOR "D 1 


" PAGE ADDRESS REGISTERS 


SDPARO- 172260 




S0PAR1- 172262 




SDPAR2- 172264 
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N2 



SEQ 0026 



172300 
17230? 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
172344 
1"'2346 
1 ^350 
172352 
172354 
173356 



SDPAR3- 


172266 


SDPAR4- 


172270 


SDPAR5- 


172272 


SDPAR6- 


172274 


S0PAR7- 


172276 


.ENDC 




.ENDC 




j*KERNEL "I" PAGE DESCRIPTOR REGISTERS 


KIPDRO- 


172300 


KIPDR1- 


172302 


KIPDR2- 


172304 


KIPDR3- 


172306 


KIPDR4- 


172310 


KIPDR5- 


172312 


KIPDR6- 


172314 


KIPDR7- 


172316 


,IF NB 




;*KERNEL "D" PAGE DESCRIPTOR REGISTERS 


KDPDRO- 


172320 


KDP0R1- 


172322 


KDPDR2- 


172324 


KDPDR3- 


172326 


KDPDR4- 


172330 


KDPDR5- 


172332 


KDPDR6- 


172334 


KDPDR7- 


172336 


.ENDC 




{♦KERNEL "I" PAGE ADDRESS REGISTERS 


KIPARO- 


172340 


KIPAR1- 


172342 


KIPAR2- 


172344 


KIPAR3- 


172346 


KIPAR4- 


172350 


KIPAR5- 


172352 


KJPAR6- 


172354 


KIPAR7- 


172356 


.ir NB 




{♦KERNEL "D" PAGE ADDRESS REGISTERS 


KDPARO- 


172360 


KDPAR1- 


172362 


KDPAR2- 


172364 


KDPAR3- 


172366 


i>QPAR4- 


172370 


K0PAR5- 


172372 


KDPAR6- 


172374 


KDPAR7- 


172376 


,ENDC 





B3 
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SEG 0027 



39 




40 




41 




42 




43 




44 




45 


000004 


46 


000060 


47 


17 7560 


48 


17 7562 


49 


177520 


50 




51 




52 




53 




54 




55 


100000 


56 


040000 


57 


020000 


58 


010000 


59 


004000 


60 


002000 


61 


001400 


6? 


000200 


63 


000100 


64 


000060 


65 


000016 


66 




67 




68 




69 




70 




71 




12 




75 




74 


1C0000 


75 


040000 


76 


020000 


77 


010000 


78 


004000 


79 


002000 


80 


001000 


81 


000400 


82 


000200 


83 


000100 


84 


000040 


85 


000020 


86 


000010 


87 


000004 


88 


000002 


89 


000001 


90 




91 




9^ 




95 




94 




9$ 


1000QQ 



.SOTTL TSV05 REGISTER AND PACKET DEFINITIONS 



I SOME GENERAL EQUATES, 



ERRVEC-- 


4 


I 


TTIVEC-- 


60 


1 


TTICSR-- 


17 7560 


I 


TTIBFR-- 


177562 


i 


BDVPCR-- 


177520 


1 



POINTER TO ERROR VECTOR FOR BUS TIME OUT, 
INTERRUPT VECTOR FOR CONSOLE INPUT 
BUS ADDRESS OF CONSOLE INPUT 
CONSOLE INPUT DATA BUFFER 
BDVll PAGE CONTROL REGISTER 



18IT DEFINITIONS FOR TSSR REGISTER 

I * 

SC- 

BIE- 

SCE* 

RMR- 

NXM- 

NBA- 

MIAOOR- 

SSR- 

OFL- 

FATERR 

TERCLS* 



BIT15 

BIT14 

BIT13 

BIT12 

BIT11 

BITIO 

BIT9JBIT8 

BIT7 

BIT6 

BIT41BIT5 

BIT3JBIT2JBIT1 



jSPECIAL CONOITION 

i BUS INTERFACE ERROR 

I SANITY CHECK ERROR 

iMOOIFICATION REFUSED 

jNONEXISTANT MEMORY ERROR 

iNEED BUFFER AODRESS 

lEXTENDED AOORESS BITS 

iSLO SYSTEM READY 

lOFF LINE BIT 

jFATAL TERMINATION ERROR CODES 

I TERMINATION CODES 



BIT DEFINITIONS 
CXSTO) 



FOR EXTENOED STATUS REGISTER 



XSOTMK- BIT15 

XSORLS- BIT14 

XSOLET- BIT13 

XSORLL- BIT12 

XSOWLE- SITU 

XSONEF- BITIO 

XSOILC- BIT9 

XSOILA- BIT8 

XSOHOT- BIT7 

XSOONL* BH6 

XSOIE- BITS 

XSOVCK- BIT4 

XSOPEO- BITS 

XSOWLK- BIT2 

XS060T- BIT! 

XSOEOT- BITO 

jBIT DEFINITIONS FQR EXTENOEO STATUS REGISTER I 
l(XSTl) 



I TAPE MARK DETECTED 

iRECORO LENGTH SNORT 

lLOGICAL ENO OF TAPE 

iRECORO LENGTH LONG 

i WRITE LOCK ERROR 

iNON EXECUTABLE FUNCTION 

I ILLEGAL COHMANO 

i ILLEGAL AOOWESS 

I TAPE IN MOTION 

i TRANSPORT ON LINE 

I INTERRUPT ENABLE 

I VOLUME CKECK BIT 

I PHASE ENCODED DRIVE 

iWRITE LOCKED 

iBEGINNING Of TAPE 

j ENO OF TAPE 



Xl.ULT » 8XT15 



iDATA LATE 



c;< 



o 
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SEQ 0028 



96 


040000 


97 


020000 


98 


017375 


99 


000400 


100 


000002 


101 




10? 




103 




104 




105 




IOC 


100000 


107 


040000 


108 


035400 


109 


002000 


110 


000200 


111 


0O0100 


11? 


000077 


113 


000007 


114 




115 




116 




11/ 




118 




119 


177400 


120 


000200 


121 


000100 


122 


000040 


123 


0O0020 


124 


000010 


125 


000006 


126 


OOOOOl 


127 




128 




129 




130 




131 




132 


100000 


135 


040000 


134 


020000 


135 


017400 


136 


000377 


137 




138 




139 




140 




141 




142 




143 




144 


000006 


145 


OQOOOfc 


146 




147 




348 




149 




150 




151 




152 





XI. SPARE 
XI, COR 
X1.M6Z 
Xl.RBP 
Xl.UNC 

IbIT DEFINITIONS FOR EXTENOED STATUS REGISTER 2 
i(XST2) 



BIT14 t NOT US*D 

BIT13 jCORRECTABLE DATA ERROR 

BIT12»BITll*BIT10»BIT9»BIT7*BIT€ •BIT5»BIT4 ♦BITS ♦BIT* ♦BITO j ALWAYS 

BIT8 i READ BUS PARITY ERROR 

BIT1 i UNCORRECTABLE DATA OR HARD ERROR 



X2.0PM 

X2.RCE 

X2, SPARE 

X2.WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 



BIT15 iOPERATION IN PROGRESS (TAPE MOVING) 
BIT14 | RAM CHECKSUM ERROR 

BIU3fBIU2*BITll»BIT9*BITa |NOT USEO RY TSV05 (ALWAYS-O) 
BIT10 iWRITE CLOCK FAILURE (FIFO NOT EMPTIEO BY TRANSPORT) 
BIT7 ,IF WRITE CHAR CMO THEN • EXTENOED FEATURES ENABLED 

BIT6 i IF WRITE CHAR CMO THEN • BUFFERING ENABLED 

000077 ,IF WRITE CHAR CMO THEN - MICROCODE REVISION LEVEL 
8IT2»BIVl*BIT0 j IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO, 



FOR EXTENOED STATUS REGISTER 3 



iBIT DEFINITIONS 
i(XST3) 

X3.M0E ■ 177400 

X3. SPARE- BIT 7 

X3,0PI - BIT6 

X3.REV • BIT5 

X3.TRF • BIT4 

X3.DCK • 8IT3 

X3.MBZ -BIT2*BIT1 

X3.RIB ■ BITO 

[BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 
i(XST4) 

X4.HSP • BIT15 iHIGM SPEED 

X4.RCE • BIT14 jRETRY COUNT EXCEEDED 

X4.TSM - BIT1S iTRANSFORT SPECIAL MCDE 

X4.MBZ ■ BIT12»BIT11*BIT10*BIT9*BIT6 jNQT USED ALWAYS 

X4.WRC • 000377 i WRITE RETRY COUNT FIELD 



iMKRO-DIAGNOSTIC ERROR CODE 
,NOT USED BY TSV05 
iOPERATION INCOMPLETE 
i REVERSE 

I TRANSPORT RESPONSE FAILURE 
iDENSITY CHECK 
iNOT USED ALWAYS 
iREVERSE INTO 0OT 



TSSR TERMINATION CODES (BIT 0-2) 



TSRF.J 

UNREC- 



3*2 
6 



l COMMAND REJECTED 
I UNRECOVERABLE ERROR 



DEVICE REGISTER OFFSETS 
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TSBA-- 

TSDB-- 

TSBAH-- 1 

TSOBH-- 1 

TSSR-- 2 

TSSRH-- 3 



D3 



SEQ 0029 



Ih3 


oooooo 


154 


000000 


155 


000001 


156 


000001 


157 


000002 


156 


000003 


159 




160 




161 




16? 




163 


000003 


164 




165 




166 




16? 




168 


000017 


169 


000013 


I/O 


000012 


171 


000011 


1?? 


0OO010 


173 


000006 


174 


000005 


175 


0O0OO4 


176 


000001 


177 




178 




179 




180 




181 


100000 


182 


040000 


183 


020000 


184 


010000 


185 


007400 


186 


0O0200 


187 


000140 


188 


000037 


189 




190 




191 




192 


OOOOOO 


193 


000400 


194 


001000 


195 


002000 


196 


002400 


197 




198 




199 




200 




201 


000167 


?o? 


000200 


203 


000201 


204 


000210 


205 


000215 


206 


900234 


20 7 




.208 




aw 





iTSDB/TSBA REGISTER 

iTSDB/TSBA REGISTER HIGH BYTE 
iTSSR REGISTER 

iTSSR REGISTER HIGH BYTE 



i TSOB ADDRESS BIT DEFINITIONS 

- BXUtBXTO jADDRESS BITS 17-16 ARE IN IjO 



A1716 



iGET STATUS 

jINITIkLIZE 

I CONTROL COMMANDS 

i FORMAT 

iPOSITION 

iSUeSYSTEM WRITE 

iWRITE 

iWRITE CHARACTERISTICS 

I READ 



i COMMAND DEFINITIONS 

P.GETSTAT • 17 

P.INIT - 13 

P. CONTROL • 12 

P. FORMAT - 11 

REPOSITION - 10 

P.WRTSU8 - 6 

P. WRITE - 5 

P.WRTCHAR • 4 

P. READ « 1 

i COMMANO PACKET HEADER WORD BIT DEFINITIONS 

P,ACK - 8IT15 iBUFFtR AVAIL FOR CONTROLLER 

P.CVC ■• BIT14 iCLEAR VOLUME CHECK 

P.OPP • BIT13 ^REVERSE SEQUENCE OF DATA BITS 

P.SW8 • BIT12 ,SWAP BYTES IN MEMORY 

P.MOOE • BITU!BIT10JBIT9!BITe lEXTENDED COMMANO MODE FIELD 

P. IE • BIT? i INTERRUPT ENABLE 

P.FMT- BIT6JBIT5 iPACKET HEADER TYPE (ALWAYS-O) 

P.CMO -37 iMAJOR COMMANO FIELD 



i CONTROL COMMANO MODE CODES 



PC. RELEASE 
PC. REWIND 
PC.NOOP 
PC.IEREW 
PC. ERASE 



0*256. 
1*256. 
2*2 jo. 
4*256. 
5*256. 



■RELEASE BUFFER 

.REWIND 

<N0-0P 

iREWINO IMMEDIATE INTERRUPT 

I SECURITY ERASE 



J ♦ 

j CONTROLLER RAM DEFINITIONS 



RMCHBEG - 


167 


RMCHENO • 


200 


RMPKTBEG- 


201 


RMPKTENO- 


210 


RMMSG8EG- 


215 


RMMSGENO- 


234 



, CHARACTERISTICS 10 DATA BEGIN RAM AOORESS 
j CHARACTERISTICS 10 DATA ENO RAM ADDRESS 
I COMMANO PACKET BEGIN RAM ADDRESS 
j COMMANO PACKET ENO RAM ADDRESS 
jMf.SSAGE BUFFER BEGIN RAM ADDRESS 
I MESSAGE BUFFER ENO RAM ADDRESS 



jREGISTER DEFINITIONS IN THE MESSAGE BUFFER 
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E3 



SEQ 0050 





210 






211 






212 






215 


000006 




214 


000010 




215 


000012 




216 


000014 




217 


000016 




218 






219 






220 






221 






222 






223 






224 






225 


000002 




226 


000004 




22 7 


000006 




228 






229 


000010 




230 






231 






232 






233 






234 


000000 




235 


000001 




256 


000002 




23? 


000004 




238 






239 






240 






241 






242 


000000 




24 3 


00O001 




244 


000002 




245 


0OO003 




246 


000004 




24 7 


0OO005 




248 


00OO06 




249 


000007 




250 


000010 




251 


OOOOll 




252 


000020 




253 


000021 




254 


0O0022 




255 


000023 




256 


000024 




25 7 






258 






259 






260 






261 


000200 




262 


000100 




26 3 


000040 




264 


000020 




265 


000010 




266 


000004 



XSTO-- 


6 


XST1" 


8. 


XST2-- 


10 


XST3-- 


12 


XST4-- 


14 



j EXTENDED 
lEXTENOED 
lEXTENDED 
lEXTENDED 
lEXTENDED 



STATUS 
STATUS 
STATUS 
STATUS 
STATUS 



REGISTER 

REGISTER 
REGISTER 
REGISTER 
REGISTER 



(WORD 
(WORD 
(WORD 
C WORD 
( WORD 



4) 
5) 
6) 
7) 
8) 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



PKLOW 


• 2 




LOW ORDER CHARACTERISTIC DATA POINTER 


PKHI 


• 4 




iHIGH ORDER CHARACTERISTIC DATA POINTER 


PKBCNT i 


• 6 




INUM8ER OF BYTES IN DATA PACKET 


EX8CNT-10 




: NUMBER OF BYTES IN EXTENDED DATA PACKET 


jDATA PACKET OFFSETS FOR WRITE 


SLftSYTEM COMMAND 


BSELO 


• 




jBYTE 


BSEL1 


• 1 




iBYTE 1 


SEL2 


• 2 




iWORD 2 


SELDATA ■ 


• 4 




iWORD 3 


t BSELO SELECT CODES FOR 


WRITE 


SUBSYSTEM COMMAND 


PU.NOP 


• 




jNO-OP 


PW, RDRAM 


• 1 




iREAD RAM 


PW.WTRAM 


• 2 




(WRITE RAM 


PW.RFIFO 


* 3 




iREAD FIFO 


PW.UFIFO 


• 4 




iWRITE FIFO 


PW.RDSTAT 


• 5 




iREAD STATUS 


PW.WCTL 


• 6 




iWRITE TAPE CONTROL 


PW.WFMT 


• 7 




l WRITE TAPZ FORMAT 


PW.WMISC 


' 10 




jWRITE MISCELLANEOUS 


PW.WNPR 


• 11 




iWRITE NPR CONTROL 


PW.D22 


■ 20 




iDO MICROTEST 22 


PU.D11 


• 21 




lOO MICROTEST 11 


PW.D13 


• 22 




iDO MICROTEST 13 


PU.N013U 


■ 23 




lOISABLE MICROTEST 11 ANO 13 


PW.RDEXT 


' 24 




iREAO EXT. TAPE STATUS (NOT SUPPORTED BY 


IbSELI CODES FOR 


WRITE 


TAPE CONTROL 


WC.IFAD 


• 8IT7 




iIFAO - FORMATTER ADDRESS 


WC.IOTAD 


' BIT6 




iITADO • TRANSPORT ADDRESS BIT 


WC.I1TAD 


• BIT5 




iITADl - TRANSPORT ADDRESS BIT 1 


WC.I5RESV 


• BIT4 




iIRESVb - RESERVED 05 


WC.IREW 


• BIT3 




iIREW - REWIND 


WC.IRWU 


• BIT2 




lIRWU - REWIND AND UNLOAD 



ALL TRANSPORTS 
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F3 



SEQ 003 I 



267 


000002 


268 


000001 


269 




270 




271 




272 




273 


000200 


274 


000100 


275 


000040 


276 


000020 


277 


000010 


278 


000004 


279 


000002 


280 


000001 


281 




282 




283 




284 




285 


000200 


286 


000020 


287 


000010 


288 


000006 


289 


000001 


290 




291 




292 




293 


oooooo 


294 


000002 


295 


000004 


296 


000006 


297 




298 




299 




300 


000200 


301 


OOOIOO 


302 


000040 


303 


000020 


304 




305 




306 




307 




308 


000200 


309 


000100 


310 


000040 


311 


000020 


312 


OOOOIO 


313 


000004 


314 


000003 


315 


100000 


316 


040000 


317 


020000 


318 


010000 


319 


004000 


320 


002000 


321 


001000 


322 


000400 


323 


000200 



I IFEN 
j GO 



WC.IFEN - 8IT1 
WC.IGO - BITO 

iBSELi COOES FOR WRITE FORMAT 

WF.IHISP - BIT7 
WF.IWRT ■ BIT6 
WF.IREV ■ BIT5 
WF.IWFM • BIT4 
WF.IEDIT • BIT3 
WF.IERASE • BIT2 
WF.I3RESV - BIT1 
WF.I4RESV - BITO 

iBSELi CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 



- FORMATTER ENABLE 



iIHISP 


- HIGH SPEED 


jIWRT 


- WRITE 


iIREV 


- REVERSE 


jIWFM 


- WRITE FILE MARK 


lIEDIT 


- EDIT 


tIERASE 


- ERASE 


jIRESV3 


- RESERVED 03 


jIRESV4 


- RESERVED 04 



MS. EXT 
MS.RSFIFO 
MS.RSTAPE 
MS. ATTN 
MS.RSD 

I* 

i MS, ATTN SUBCODES 

MSA. NOP - 

MSA. VOL - 

MSA.NRAM- 

MSA.FRAM- 
i * 
j WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 



BIT7 

BIT4 

BIT3 

BIT2JBIT1 

BITO 



0*2 
1*2 
2*2 
3*2 



i INVERT SENSE OF EXTENOED FEATURES SWITCH 
jRESET FIFO AND INPUT PARITY E^RORR 
»RESET TAPE STATUS IN 2 FLIF -FLOPS 
lATTENTION TRIGGER FIELD 
jRESET TIMfR A.B THEN DELAY TIMES IN SEL2 



iNO-OP (NOTHING TRIGGERED) 
»SIMU_ATE ON-LINE/OFF-LINE TRANSITION 
jFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 
tFORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



54; 



NP.IR - BIT7 

NP.OUT • BIT6 

NP.LOOP - BIT5 

NP.WRP ■ BIT4 

J ♦ 

j READ STATUS MESSAGE BUFFER BIT DEFINITIONS 

J - 



I INTERRUPT REQUEST (0-1 TRANSITION) 

j TAPE DATA DIRECTION OUT (0- IN) 

l ENABLE TRANSPORT LOOPBACK 

jWRITE CORRECT PARITY (SET-0 TO WRITE WRO.MG) 



S2.DIM 
S2.ILW 
S2.0UTRDY 
S2.INRDY 
S2.ATIMR 
S2.BTIMR 
S2.WDEF 
Sl.PARIN 
SI.I2RESV 
S1.I1RESV 
Sl.IEOT 
Sl.IIDENT 
ICER 
IFMK 
IHER 



SI 
SI 
SI 



SO.ISPEEO 



BIT7 

BIT6 

BIT5 

BIT4 

BIT3 

BIT2 

BIU»BITO 

BIT15 

BIT14 

BTT13 

BIT12 

BIT11 

BIT10 

BIT9 

BITS 

BIT7 



WORD 09 BYTE 2 



(UNDEFINED) 
WORD 08 BYTE 



WORD 08 BYTE 



DATA IN MISS 
ILW H 
OUT ROY H 
IN RDY H 
TIMER A FLAG H 
TIMER B FLAG H 

PARIN H 
IRESV2 
IRESV1 
IEOT L 
IIOENT H 
ICER H 
IFMK H 
IHER H 
ISPEED H 



[d5 
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324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
34 3 
344 
345 
346 
34 7 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
570 
371 
372 
373 
374 
375 
376 
377 
3 78 
379 
380 



000100 
000040 
000020 
000010 
000004 
000002 
000001 
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SO.IRDY 




- BIT6 , 


IROY L 


SO.IONL 




• BIT5 t 


IONL L 


SO.ILDP 




- BIT4 , 


ILOP L 


SO.IDRY 




» BIT3 i 


IOBY L 


SO.IRWD 




* BIT2 j 


IRUID L 


SO.IFBY 




- BIT1 » 


IFBY L 


SO.IFPT 




- BITO i 


IFPT L 


, 


SBTTL 


SPECIAL MACROS AND OPDEFS. 





SEU C0H2 



I * 

I SAVE GENERAL REGS 1 TO 5 

I - 

.MACRO SAVREG 
^SR R5.REGSAV 
.ENDM 

I MACRO TO FORCE AN ERROR 

.MACRO FORCERROR TAG.NOTSSR 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSR(R5),R1 jREAD TSSR 
.ENOC 

MOV FORCER, FORCER i IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG ;BR IF YES 

NLIST 

IIF NOF LISTALL, .LIST 
LIST 
ENDM 

♦ 

MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 
WILL EXIT TO A LABEL IF FORCER IS NEGATIVE 
SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 
FORCER TO 177777 
TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 



FORCEXIT 



TAG 



MACRO 

NLIST 

IIF NDF LISTALL, .NLIST 

LIST 

MOV FORCER, FORCER 
BMI TAG 
.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENDM 

1 * 

I MACRO TO INCREMENT ERROR COUNTS 
I 

.MACRO NEXT.ERRNO 
.NLIST 

II I. IIF NDF LISTALL, .NLIST 



iIS FORCER NEGATIVE? 
|BR IF YES 



H3 
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SPECIAL MACROS AND OPDEFS 

381 

38? 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 000000 

398 

399 

400 

401 

402 

403 

404 

405 002176 000000 

406 

407 

408 

409 

410 

411 

412 

413 

414 

415 

416 

417 

418 

419 002200 000000 

420 002202 000000 

421 002204 OOOOOO 

422 002206 OOOOOO 

423 002210 000224 

424 002212 0OO200 

425 002214 OOOOOO 

426 002216 OOOOOO 

427 002220 OOOOOO 

428 002222 OOOOOO 

429 002224 OOOOOO 

430 002226 OOOOOO 
4 31 002230 OOOOOO 

432 002232 OOOOOO 

433 002234 OOOOOO 
4 34 002236 OOOOOO 
4 35 002240 OOOOOO 
4 36 002242 

437 002302 OOOOOO 



SEQ 9053 



ERRNQ-ERRNOU 



j i i.IIF NDF LISTALL, .LIST 

.LIST 

.ENDM 


! MACRO TO PERFORM XOR 
i - 


.MACRO 

MOV 
BIC 
BIC 
BIS 
.ENOM 


XOR A,B 

A.-CSP) 

B.CSP) 

A,B 

CSP)* ( B 


EN»0 
.SBTTL 


FORCER - F 



i INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



{ THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
I TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



FORCER; j 



i * ♦ 



i FORCE TYPE ALL HARD ERRORS CTHfc ONES CALLED 
i - BY THE MACRO "IFFRROR") . AN ERROR NEED NOT - 
j - EXIST, JUST ASSUME AND TYPE THE MESSAGE, 
.SBTTL GLOBAL DATA SECTION 



j THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
j IN MORE THAN ONE TEST. 
I - - 



j THE FOLLOWING DATA ARE 
j SINGLE UNIT DEFAULTS ( 

I 

EPRTSW: : 

UNITN: j 

QVP:: 

CSRADDR: 

IVEC:: 

IPRI:: 

TSTCNT: 

LOOPCNT 

DEVCNT; 

FATFLG: 

INTRECV 

EXTFEA; 

BF.NBSW: 

EXPO; 

RECV: 

ERRHI 

ERRLO 

RAMDATA: i 

RAMSIZ: : 



SET FOR EACH UNIT AT INIT TIME. 
LISTED) ARE IN THE DEFAULT P-TABLE. 



PRINT SWITCH 

UNIT * UNOER TEST. 

QUICK VERIFY FLAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 

INTERRUPT VECTOR 

INTERRUPT PRIORITY. 

NUMBER OT TESTS RUN IN THIS PASS 

REMAINING ITERATION COUNT FOrt TEST 

NUMBER OF DEVICE UNDER TEST 

SET IF FATAL ERROR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 

EXTENDED FEATURES SOFTWARE SW O-OFFjl-QN 

BIA-TER ENABLE SWITCH SW O*0FF,l"ON 

EXPECTED RAM DATA FOR P.7AMPKT ROUTINE 

RECEIVED RAM DATA FOR PRANPKT ROUTINE 

HIGH ADDRESS MEMORY ERROR 

LOW ADDRESS MEMORY ERROR 

DATA READ FROM RAM PACKET OP MESSAGE BUF AREA 

RAM DATA SIZE FOR PRAMPKT ROUTINE 



.WORD 


i 


.WORO 


i 


.WORD 


i 


.WORD 


i 


.WORD 


224 , 


.WORD 


PRI04 j 


.WORD 


i 


.WORD 


i 


.WORD 


j 


.WORD 


t 


.WORD 


i 


.WORD 


i 


.WORD 


i 


.WORD 


i 


.WORD 


i 


.WORD 


j 


.WORD 


i 


.BLKW 


16. j 


.WORD 


i 
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438 
439 
440 
441 
442 
443 
444 
445 
446 
44 7 
44P 
449 
450 
45x 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
4 70 
471 
472 
473 
4 74 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 



002304 
002306 
002310 
002312 
002314 
002316 
002320 
002322 
002466 
002632 



002752 
002 752 
002754 
002756 
002760 
002762 
002764 
002766 
002770 
002772 
002774 
002776 
003000 
003002 
003004 
003006 
003010 
003012 
003014 
003016 
003020 
0O3022 
003024 
003026 
003030 
003032 
003034 
003036 
003040 
OO3042 
003044 



000000 
000000 
000000 
000000 
000000 
000000 
000000 



oooooo 

177777 
000001 
000002 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
O400O0 
100000 
177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
1 75777 
173777 



RCVHIADD; : 

RCVLOADDjt 

COUNT : : 

DATA: : 

TSTFLAG: : 

TSTPTR 

PRMNO: 

EXPMSG 

RECMSG 

TMPBFR 



.SBTTL 



.WORD 
.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BLKB 
.BLKB 
.BLKB 
TSTBLK 



13 

















100. 

100. 

80. 

- TEST 



SfcQ 0034 



iRECEIVED BUFFER HIGH ADDRESS 
iRECEIVED BUFFER LOW ADDRESS 
iTEST COUNT PATTERN 
I TEST DATA 
j TEST FLAG WORD 
I TSTBLK POINTER 
I PRINT ROUTINE TEMP 
lEXPECTED MESSAGE BUFFER CATA 
iRECEIVED MESSAGE BUFFER DATA 
i TEMPORARY STORAGE FOR PRINT 
DATA TABLE 



THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA ISt 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



TSTBLK: 



.WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BIT1 


.WORD 


BIT2 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORO 


8IT7 


.WORD 


BITS 


.WORD 


BIT9 


.WORD 


BIT10 


.WORD 


B1TU 


.WORO 


B1T12 


♦ WCftO 


BIT13 


.WORD 


8IU4 


.WORD 


BIT15 


.WORD 


tCBITO 


.WORD 


tCBITl 


.WORD 


tCBIT2 


.WORO 


tCBI13 


♦ WO«D 


tCBIT4 


WORD 


tCUIT5 


.WORD 


tCBIT6 


.WORD 


tceiT7 


.WORD 


*CBIT8 


.WORD 


tCBIT9 


.WORO 


tCBITIO 


.WORD 


tCBITll 



lALL ZEROS 

I ALL ONES 

i DATA FOR WALKING ONES 



lOATA FOR WALKING ZEROS 



J3 
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TSTBLK - TEST DATA TABLE 



ScQ 0035 



495 003046 

496 003050 

497 00305,? 

498 003054 

499 003056 

500 003060 
501 

502 
503 
504 
505 

506 003062 

507 003072 
508 

509 

510 003112 

511 

512 003114 

513 

514 003116 

515 003120 

516 003122 

517 003124 

518 003126 

519 003130 

520 003132 
521 

522 

523 003134 

524 003136 

525 003140 

526 003142 

527 003144 

528 003146 

529 003150 

530 003152 

531 0O3154 

532 003156 

533 003160 

534 003162 

535 003164 

536 003164 

537 003166 

538 003170 

539 003172 

540 003174 

541 003176 
542 

543 
544 
545 
546 
54/ 
548 
549 
550 
S5i 003176 



167777 
157777 
137777 
077777 
125252 
052525 
003062 



000000 100000 
000000 000000 



000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 



oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 

002000 

oooooo 
oooooo 
oooooo 
oooooo 

oooooo 
oooooo 
oooooo 
oooooo 

177777 



.WORD 


tCBIT12 




.WORD 


tCBIT13 




.WORD 


tCBIT14 




.WORD 


tCBITlS 




.WORD 


125252 i ALTERNATING ONES, 


ZEROS 


.WORD 


052525 i ALTERNATING ONES, 


ZERO OPPOSITE FROM ABOVE 


]SBTTL 


GLOBAL ENVIRONMENT STORAGE 





TBLEND 



{STORAGE FOR DEVICE REGISTERS 



OOOOOO DUMMY: 0,100000,0,0 


OOOOOO 0,0,0,0 


,0,0,0,0 


DUFLG: t 


.WORD 


NOOEV: : 


.WORD 


TEMPI: : 


.WORD 


TEMP2: : 


.WORD 


XXCOMM: : 


.WORD 


FREE:: 


.WORD 


FRESIZ:: 


.WORD 


FREEMI: .WORD 





KTFLG:? 


.WORD 


KTENA8LE: j 


.U. .0 


NXMFLG: : 


.WORD 


NXHLQ: : 


.WORD 


NXMHI: : 


.WORD 


T23A:: 


.WORD 


T23B:: 


.WORD 


T33FLG:; 


.WORD 


PST32W: j 


.WORD 


SIFLAG: t 


.WORD 


BADDAT : : 


.WORD 


GDDAT : : 


.WORD 


LOOPFL : : 


.WORD 


CTAB:: 




CfABM:: 


.WORD 



, DUMMY DEVICE REGISTERS... 
I ...FOR MULTI-UNIT CHECKOUT 



.WORD 
.WORD 
.WORD 
.WORD 





























2000 












o 





"DROPPED LNIT" FLAG. 
INKIBITS CODE IK "CLEAN-UP". 
FLAG TO SAY NO DEVICE. 

SOME TEMP LOCATIONS. 

XXDP* COMM BLOCK POINTEP. 
1ST FREE MEMORY AD0RE5S . . . 
.. .AND SIZE (IN WORDS). 
{LAST WORD IN FREE SPACE 

KT11, MEM AVAIL FLAG - 

- .WORD - <24K OR HO KT • 

- NZ • >24K ANO KT. 

SET BV TEST ROUTINES TO FLAG >28K UNOE> 
SET IF WE CAN TEST CLEARED OTHERWISE 
NXM LO ADDRESS BITS 

NXM HI ADDRESS BITS FOR DAL ' S 16-21 
11/23A FLAG 
11/23B FLAG 
TEST 3B FLAG to 
32W BLOCK ADDRESS FOR 32" START 

ACTUAL DATA 
EXPECTED DATA 

CONFIGURATION TABLES. 
CONFIG WORK. 



lEND OF MEM TABLE. 



I EST 



C T A8E: j 
ERROR STATISTICS TABLE (1 WORD PER UNIT), 64 UNITS MAX: 





100000 
10XXXX 
160000 
160001 
14XXXX 



UNIT 
UNIT 
UNIT 

UNIT 
UNIT 

UNIT 



NOT TESTED 

ONLINE, NO ERRORS 

ONLINE, ENCOUNTERED XXXX 

DROPPED, NON-EXISTENT DEVICE REGISTER 

DROPPED, NOT IDLE AT START 

DROPPED, ENCOUNTERED XXXX ERRORS 



ERRORS 



LRTABL: 



,BLKW 64 



I<3 
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SEQ 0036 
GLOBAL ENVIRONMENT STORAGE 

552 003376 000000 ERTABE: .WORD 

553 

554 003400 000000 SKIPT: .WORD jl-SKIP SUBTEST 0-NO SKIP OF* SUBTEST 



L3 
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556 
557 
556 
559 
560 
561 
562 
563 
564 
565 
566 
567 
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SEQ 0037 



568 
576 
577 
1>78 
579 



580 
594 
595 
596 
597 
598 
599 
^00 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
6 .1 
61? 

6:3 

61*i 
615 

616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 



003402 
003402 
003402 



003410 
003410 
003410 



003502 
003522 
003542 
003545 
003551 
003555 
003561 
003565 
003571 
003576 
003603 
003607 
003613 
003620 
003625 
003632 
003637 
003644 

003652 

003705 
003740 
003777 
004020 
004060 
004117 
004123 
004152 



124 



123 



126 



052 



052 



052 



003542 
003603 
123 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 
045 
040 
040 



003545 
003607 
103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 
ill 
111 
111 

12i 

123 
040 
101 
101 
101 
116 
040 
040 



003551 
003613 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

123 
123 
116 
040 
040 
040 
045 
125 
111 



.SBTTL GLOBAL TEXT MESSAGES 

j THE GLOBAL l.;XT SECTION CONTAINS FORMAT STATEMENTS, 
j MESSAGES. AND ASCII INFORMATION THAT ARE USED IN 
I MORE THAN ONE TEST. 
I - - 

I * 

jNAMES OF DEVICES SUPPORTED 

i - 

DEVTYP <TSV05> 
L$DVTYPt: 

.ASCIZ *TSV05* 
.EVEN 

;TEST DESCRIPTION 

DESCRIPT <♦♦** TSV05 LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ****> 



L$DESC: j 



.ASCIZ /**** TSV05 LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR ****/ 
.EVEN 



{BIT TO ASCII CONVERSION FOR TSSR REGISTER 
I - 



II, 21.3$, 4$, 5$, 6$, 7$, 8$ 

9*. 10* ,11*. 12*. 13$ ,14 $.15* .16$ 



TSSRBIT:: .WORD 

.WORD 

1*: .ASCIZ 'SC 

2*: .ASCIZ 'BIE' 

3*: .ASCIZ 'SCE' 

4*: .ASCIZ *RMR' 

5*i .ASCIZ 'NXM' 

6*: .ASCIZ 'NBA' 

7»: .ASCIZ 'BIT9' 

8$: .ASCIZ 'BIT6' 

9$: .ASCIZ 'SSR' 

101; .ASCIZ 'OFL' 

11*: .ASCIZ 'BIT5' 

12*: .ASCIZ 'BIT4' 

13*: .ASCIZ 'BIT3' 

14*: .ASCIZ 'BIT2 ; 

15*- .ASCIZ 'BITl' 

161: .ASCIZ 'BITO' 

.EVEN 

SFIERH: .ASCIZ 'TSSR ERROR AFTER SOFT IN1T' 

SFHERR: .ASCIZ 'TSSR ERROR AFTER BUS RESET' 

NXR: .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /*A ADDRESS: *06/ 

TSSX- .ASCII /*A TSBA.TSSR EXP'D: *06*A ,*06»N/ 

.ASCIZ /*A TSBA.TSSR REC'D: *06*A ,*06/ 

FUSI; .ASCII /*N*A/ 

USI: .ASCIZ / UNEXPECTED INTERRUPT/ 

NSI: .ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 



M3 
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SEQ 0038 



627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 

660 



661 
662 



663 
664 
665 
666 
667 
668 
669 
670 
671 
672 



004215 
004221 
004256 
004300 
004335 
004407 
004457 

004527 
004530 
004533 
004567 
004643 
004 745 
005013 
005056 
005113 
005206 
005300 
005372 
005460 
005554 
005645 



005736 
005736 
005736 
005736 
005742 
005746 
005752 
005754 
005756 
005762 
005766 
005766 
005766 



005770 
0057 72 
005774 
005776 
006002 
006002 
006006 



045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 
106 
105 
045 
045 
045 



116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
12? 
123 
123 
101 
122 
116 
116 
116 



045 
116 
111 
040 
042 
042 
042 



000 
040 
045 
040 
115 
103 
111 
123 
123 
124 
122 
045 
045 
045 



013746 
012746 
0127'* 
0106 
1044. - 
0627C i 
0047; ' 



104423 



003114 
003777 
000002 



COOt 
005^ ■ 



005727 
000000 
001402 
004777 

012746 
012746 



177770 

004530 
OQQOOi 



FNOINTR 

NOINTR; 

IFAULT: 

INTX; 

NOXNIT 

NSINIT 

BRINIT 

NUL: 

NULCR; 

EXPGOT 

EXPGT2 

0UAD12 

PKTRAM 

SCME; 

WRTMSG: 

WRTERR; 

ROERR; 

SCHERR: 

RETERR: 

NOHEM 

M8186 

M8189 



.ASCIZ 
.ASCIZ 
. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



.ASCII /*N*A/ 

/ NO INTERRUPT WAS GENERATED/ 

/ INTERRUPT FAULT/ 

/KA CPU PC? *06*A TSBA: *06/ 

/ "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

/ "SO; T-INIT" DIDN'T INITIALIZE THE DPU/ 

/ "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

// 

/#N/ 

/*A EXP'D; *06*A, REC ' D : *06/ 

/*N*A EXP'D: *06*A, *06*N*A REC'O: *0*A # *06/ 

/*A REGCW) WRITTEN TO: *06*A REG(R) READ} EXP'D: *06*A, REC'Di *06/ 

.ASCIZ 'RAM Content* Do Not Match Pocket Sent' 

/ CONFIG DOESN'T MATCH MFG. MASTER/ 

'WRITE CHARACTERISTICS Failed' 

'TSSR Incorrect After WRITE Commend, More Bits Set Than SSR' 

•TSSR Incorrect After READ Command, More Bits Set Than SSR' 

'FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT etc.' 

'ERROR IN SUBTEST - WRITE DATA RETRY FIVE TIMES FAILED' 

'*N*A ***** NO NXM ADDRESS- -CANNOT TEST NXM TIMEOUT. ******N' 

* *N*A ***************** 11/23A SYSTEM ***************+**N' 

♦*N*A ***************** H/23B SYSTEM *++***************N' 

GLOBAL ERROR REPORT SECTION 



j THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

5 CALLS THAT ARE USED IN MORE THAN ONE TEST. 

j ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 

t -- 



BGNMSG NXRERR 



NXRERR: : 




PRINTX 


JNXRX.NODEV 


MOV 


NODEV,-C. cn ) 


MOV 


•HXRX, -CSH) 


MOV 


•2.-CSP} 


MOV 


SP.RO 


TRAP 


C*PNTX 


ADD 


06, SP 


JSR 


PC, EXTEND 


' v!OMSG 





>NON-EXISTANT DEVICE REGISTER 
jNODEV - NEXM ADDRESS. 



j PRINT EXTENSION IF REQUIRED 



LI 000 



TRAP 



^'Su 



is 


r-iOlTINF 


' ">£NDS A \J»; 


\\J . 


;" "-,- 


A^T ERROR 


' TEND: 


Tai 


-n 


L.- n - 









urn 


1$ 




jj:- 


PC,Js€XTP 


1*1 


PRINl* 


. Mir i"tf 




MOV 


ONUl.^: '** J 




MOV 


*i»-cspj 



r ',GNA"URES, 



O - .10 EXTENSION. 

j MPPINQ EXTENSION TEXT* 
I PRIM A BLANK LINE 
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006012 

006014 

006016 

673 006022 



010600 
104415 
062706 
000207 



000004 



MOV 
TRAP 
ADD 
RTS 



SP.RO 
CJPNTX 
04.SP 
PC 



N3 



SEQ 0039 



B4 
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PRITSSR - PRINT TSSR CONTENTS 



SEQ 0040 



675 








6/6 








67? 








678 








679 








680 








681 








68^ 








683 








684 








685 








686 








68 7 








688 








689 








690 








691 








692 








693 


006024 






694 


006024 






695 


006030 


010104 




696 


006032 








006032 


010446 






006034 


012746 


006415 




OO6O40 


012746 


000002 




006044 


010600 






006046 


104414 






oo6or«v 


062706 


000006 


697 


006C54 


010400 




698 


006CS6 


•-04737 


016044 


699 


OOf ,>;U 


103410 




700 


0060*4 








00*364 


012746 


006635 




0060. 


012746 


000001 




OOC ' A 


' . ';*00 






; o6c '< j 


. : wis 






COM 00 


0*!<706 


000004 


7n? 


oc*> ;■:?•* 


011403 




7c * 


JO€.i*:- 


042703 


001476 


7 0S 


oo*.. 


001434 




704 


OOt i 


J12702 


002632 


705 


(K^iii) 


012701 


003502 


706 


006124 


005703 




707 


006126 


001413 




708 


0061: NO 


000241 




709 


006*32 


OO6).03 




710 


OOf 134 


103006 




711 


OOt. 136 


011100 




71-' 


00*140 


1120*2 




7M 


00*142 


0013?6 




714 


0<<6144 


112762 


000054 


71? 


01)6152 


005/21 




716 


006154 


00076* 




71/ 


006156 


105042 




718 


006160 








006160 


012/46 


00<?632 




006164 


012746 


006606 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 

» 

ROUTINE T DISPLAY THE CONTENTS, ANO BIT DEFINITIONS, OF 
THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 

INPUTS: 

Rl CONTENTS Of TSSR 
SUBORDINATE ROUTINES: 

CHKAMB CHECK TOR AM6IGU0U5 CONTENTS 



iSAVE GENERAL REGISTERS 
jSAVE THE TSSR CONTENTS 
jPRINT THE CONTENTS Of TSSR 



177777 



PRITSSR 


• 
*SAVREG 






MOV 


R1.R4 




PRINTB 


#TSSRF0R,R4 




MOV 


R4.-CSP) 




MOV 


♦TSSRFOfl,-(SP) 




MOV 


♦2,-(SP) 




MOV 


SP.RO 




1RAP 


CIPNTB 




AOO 


♦6.SP 




MOV 


R4.R0 




JSR 


PC, CHKAMB 




PCS 


5* 




PRINTX 


*AMBTSSR 




MOV 


♦AMBTSSR.-CSP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




AOO 


♦4.SP 


5$j 


MOV 


R4.R5 




BIC 


♦HIADORJMTERR! 




BEO 


201 




MOV 


#TMPBFR,R2 




MOV 


♦TSSRBIT.R1 


101 1 


TST 


R3 




BEO 


151 




CLC 






ROL 


R3 




BCC 


131 




MOV 


(Rl).RO 


111: 


MOVB 


(R0)»,(R2>* 




BNE 


111 




MOVB 


#' ,,-l(R2) 


131: 


TST 


(Ri)» 




BR 


loe 


151 i 


CLRB 


-CR2) 




PRINTX 


♦ TSSOEF,*TMPBFR 




MOV 


tTMPBFR, (SP) 




MOV 


*TSSOEF,-CbP) 



I GET TSSR BACK FOR CHKAMB 
jAPE CONTENTS AMBIGUOUS ? 
iBRANCH IF NOT 
I SHOW CONTENTS ARE AMBIGUOUS 



■CONTENTS OF TSSR 
TERCLS.R3 jCLEAR ALL MULTIPLE BIT FIELDS 
iNO BITS ARE SET 
i TEMPORARY ASCII BUFFER 
(ASCII EQUIVALENT OF BITS 
iREMAINING BITS TO CONVERT 
iBPANCH WHEN ALL ARE DONE 
iCLEAR CARRY FOR SHIFT 
iSHIFT NEXT BIT TO CARRY 
iBRANCH IF BIT NOT SET 
iPOINTER TO BIT DEFINITION 
(MOVE ASCIZ TO BUFFER 
iMOVE ALL BITS 

l INSERT A COMMA TO TERMINATE 
iPOINT TO NEXT DESCRIPTION 
»GET THE REMAINING BITS 
i TERMINATE THE LINE 
iPRINT THE BIT DEFINITIONS 
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PRITSSR ■ PRINT 15SR CONTENTS 



C4 



5EQ 0041 



006170 
006174 
006176 
006200 
719 

720 006204 

721 006206 

722 006212 

723 006216 
0O6216 
006220 
006224 
006230 
0O6232 
006234 

724 006240 

725 006242 

726 006246 

727 006250 
725 006252 

729 006254 

730 006256 

731 006262 
006262 
006264 
006270 
006274 
006276 
006300 

732 006304 

733 006310 

734 006312 
006312 
006314 
006320 
006324 
006326 
006330 

735 006334 

736 006340 
006340 
006342 
0O6346 
006350 
006352 

737 006356 
73« 

744 006360 

745 006360 
746 

756 006415 

757 006435 

758 0064 76 

759 00653 7 

760 006606 

761 006635 
762 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001416 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
042 ?04 
0014U 

010446 
012746 
012746 
010600 
104415 
062706 
013703 

010346 
012746 
010600 
104415 
062706 
000207 



045 

045 
045 
045 

045 
045 
045 



000002 



000006 



177761 
006676 



0064 7t> 
000002 



000006 
177717 

007236 



006537 
000002 



0OO006 
176377 



0064 35 
000002 



000006 

002200 



000001 
000004 

life 

116 
lib 
116 

116 
life 
116 



MOV 02, -(SP) 

MOV SP.RO 

TRAP CIPNTX 

ADD 06,SP 

201: MOV R4.R3 

BIC #tCTERCLS,R3 

MOV TC0C0O(R3) t R3 

PRINTX 4TC0ASCR5 

MOV R3.-CSP) 

MOV OTCOASC.-(SP) 

MOV *2,-(SP) 

MOV SP.RO 

TRAP CIPNTX 

AOO #6,SP 

MOV R4.RS 

BIC «tCFATERR,R3 

BEQ 251 

ASR R3 

A5R R3 

ASR R3 

MOV TSFC00<R3) # R3 

PRINTX 0TFCASC.R3 

MOV R3.-CSP) 

MOV ♦TFCASC.-(SP) 

MOV *2, -(SP) 

MOV SP,R0 

TRAP CIPNTX 

ADO 06, SP 

251 1 BIC #tCHIA0DR,R4 

BEQ 301 

PRINTX 0TEXASC.R4 

MOV R4.-CSP) 

MOV OT£XASC,-CSP) 

MOV 02, -(SP) 

MOV SP.RO 

TRAP CIPNTX 

ADO #6,5? 

301} MOV EPRTSW.R3 

PRINTX R3 

MOV R3,-(SP) 

MOV #1, (SP) 

MOV SP.RO 

TRAP CIPNTX 

ADD 04 , SP 

RTS PC 



jGET THE TSSR CONTENTS 

iCLEAR ALL BUT TERMINATION 

iGET THE TERMINATION CODE MEANING 

I PRINT THE TERMINATION CODE 



j TSSR CONTENTS AGAIN 

iCLEAR ALL BUT FATAL TERMINATION 

I DON'T PRINT IF ZERO 



lALINE TERMINATION COOE FOR INOEX 
iGET THE FATAL TERMINATION COOE 
iPRINT THE FATAL TERMINATION CODE 



iCLEAR ALL BUT EXTENDED ADDRFSS 

iDON'T PRINT IF ZERO 

jPRINT THE EXTENOEO ADDRESS BITS 



jPRINT MEAASGE BUFFER ADDRESS 
jPRINT PROPER MESSAGE 



I RETURN TO CALLER 



045 

045 
045 
045 
045 
04 b 
045 



EPRT2; 
EPRT1: 

TSSRFOR 
TEXASCi 
TCOASCi 
TFCASC; 
TSSDEF. 

AMOTSSRi 



.ASCIZ '*N*A 



'REPLACE M7196***** 



>EVfcN 



.ASCIZ #N*A 

.ASCIZ ***HA 

.ASCIZ '*N#A 

.ASCIZ 'a>*A 

.ASCIZ '*KWA 

,ASCI£ **N*A 



TSSP • *06' 

E*tandad Addraaa Bits • 

Termination Ciaaa Cod* 
Fatal Termination Claat 
TSSR Bita Sat? *T l 
TSSR Contact* Art ArftbioMous 1 



*06' 

ar 

Coda 



* *T 



D4 



TSV3 - GLOBAL AREAS MACRO M1200 20-MAR-84 08i26 PAGE 15-2 
PRITSSR - PRINT TSSR CONTENTS 



SEQ 0042 



763 006676 

764 006716 

765 006741 

766 006767 

767 007011 

768 007031 

769 007113 

770 007162 

771 )07206 
772 

7 73 

774 007236 

775 007246 

776 007302 

777 007313 
7 78 007357 
779 

780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
/93 
794 

795 007370 

796 007370 

797 007374 
79? 007376 

799 007402 

800 007404 

801 007406 

802 007410 
6C3 007412 

804 007414 

805 007416 
007416 
007420 
007422 
007426 
007432 
007454 
007436 

806 007442 

807 007444 

808 007446 

809 007450 

810 007454 

811 007456 
312 007460 



006716 
116 
124 
124 
106 
122 
122 
125 
106 



007246 
111 
122 
102 
122 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
004737 
010004 
005001 
01?402 



006741 
157 
145 
141 
165 
145 
145 
156 
141 



007302 
156 

145 
165 
145 



006767 
162 
162 
160 
156 
143 
143 
162 
164 



007313 
164 
163 

163 
163 



003134 



007554 
000003 



000010 



017316 



TCOCODi 

It 

2$ 

3t 

4$ 

5* 

61 

7$ 

8$: 



TSFCOO? 

1$ 

2$ 

3$ 

4$ 



.WORD 

.ASCIZ 

, ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 
. ASCIZ 
.EVEN 
.SBTTL 



1$, 2$, 31,4$, 51,6$, 7$, 8$ 
'Normal Term' at ion' 
' Term i nat i on Cond 1 t 1 on ' 
'Tap* Statue Alart' 
'Function Rajact' 
'Racovarabla Error - Tapa 
' Racovarabla Error - Tapa 
' Unrecoveraole Error* 
'Fatal Controller Error' 



Poe I 1 1 on One Record Down 
Was Not Moved' 



II ,21,31,4$ 

'Internal Diagnoetic Failure' 

•Reaerved' 

' Bue Interface or Sanity Check Error' 

* Reaerved' 

PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



THIS ROUTINE PRINTS THE ADDRESS ANO CONTENTS Of A COMMANO PACKET, 
THIS ROUTING IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT? 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMAND PACKET ADDRESS 

ADDRESS OF COMMANO PACKET 



PRIPKT} 



NOTE j R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR, 



I SAVE THE REGISTERS 

I SAVE NO. OF WORDS IN PACKET 

i'NBOVE 28K UNDER TEST? 

jBR IF YES 

I SET HIGH ORDER ADDRESS TO 

j COPY HIGH ORDER ADDRESS 

jGET LOWER ADDRESS 

jSHIFT BIT 15 INTO C BIT 

lANO INTO HIGH ORDER. 

jPRINT PACKET ADDRESS 





SAVREG 






MOV 


R0,R5 




TST 


KTENABLE 




BNE 


10$ 




CLR 


R3 


10$: 


MOV 


R3.R1 




MOV 


R4.R0 




ROL 


RO 




ROL 


Rl 




PRINTS 


ePKTADD,Rl,R4 




MOV 


R4,-(SP) 




MOV 


Rl.-(SP) 




MOV 


*PKTADD,-(SP) 




MOV 


e3.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADO 


♦10, SP 


15$} 


MOV 


R3,R0 




BEQ 


20$ 




MOV 


R4.R1 




JSR 


PCSETMAP 




MOV 


R0,R4 


20$ j 


CLR 


Rl 


25»t 


MOV 


(R4)»,R2 



i GET HIGH ORDER ADDRESS 
I BR IF NOT ABOVE 28K , 
;GET LOW ORDER ADDRESS 
» SETUP PAR6 MAPPING FOR 18 
I GET RETURNED PAR6 ADDRESS 
j SAVE WORD NUMBER 
|GET PACKET CONTENTS 



BIT ADDRESS 
BIAS 



E4 
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PR1PKT - PRINT THE ADDRESS/CGNTENi S OF COMMAND PACKET 



SEQ 0043 



813 



614 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
84 7 
848 



007462 
007462 
007464 
007466 
007472 
007476 
007500 
007502 
007506 
007510 
007512 
007514 

007516 
007554 



849 
850 
851 
852 
853 
654 



007612 
007612 
007616 
007620 
007630 
007634 
007636 
007640 
007642 
007642 
007644 
007M6 
007650 
00/654 
007660 
007662 
007664 
007670 
007672 

007674 



010246 

010146 

012746 007516 

012746 000003 

010600 

104414 

062706 000010 

005201 

020105 

002762 

000207 



045 
045 



045 



116 
116 



045 
045 



PKTFRM; 
PKTADD: 



PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

INC 

CMP 

BLT 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 
.SBTTL 



*PKTFRM,R1,R2 

R2.-CSP) 

Rl.-(SP) 

GPKTFRM, -CSP) 

•3,-CSP) 

SP.RO 

CIPNTB 

010.SP 

Rl 

R1.R5 

25$ 

PC 



iPRINT THE DATA 



I NEXT WORD NUMBER 
iDONE ALL PACKET WORDS? 
lLOOP TILL ALL DONE 
jRETURN 



'#N*A Packet Word <h*Dl*A • #06' 
'*N*A Packet Addrtaa - f<01*05* 

PRIBXOR - PRINT EXPO, RECV AND XCR BYTE 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS? 



Rl 
R2 



OUTPUT s 



010203 

012^00 177400 
040001 
040002 
040003 

0105 46 

010146 

010246 

012746 007674 

012746 000004 

010600 

104414 

062706 000012 

010300 

000207 



RO 



PRIBXOR:: 

5AVREG 

MOV 

XOR 

MOV 

BIC 

BIC 

BIC 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 



RECEIVED DATA 
EXPECTEO DATA 



XOR OF EXPECTED/RECEIVED DATA 



R2.R3 

R1.R3 

♦tC<377>,NO 

R0.R1 

R0.R2 

R0.R3 

#X0RBF0R,R2,R1 

R3,-(SP) 

Rl.-(SP) 

R2.-CSP) 

#X0«8FOR,-(5P) 

#4, -CSP) 

SP.RO 

CIPNTB 

012, SP 

R3.R0 

PC 



I SAVE THE 
(EXPECTED 
I FORM THE 
iBYTE 
I SAVE 
j SAVE 
i SAVE 



REGISTERS 

DATA 

EXCLUSIVE 
MASK 

LOW BYTE RECV 
LOW BY1£ EXPD 
LOW BYTE XOR 



OR 



R3 j PRINT THE MESSAGE 



jRO HAS XOR ON RETURN 
jRF.TURN TO CALLER 



116 



045 XORBFORj .ASCIZ ' *N*A EXPD; *03*A RECV: *03*A XOR; *03 
.FVFN 
.SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



F4 
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PRIXOR - PRINT EXPO, RECV AND XOR 



855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
367 
868 
869 
870 
871 
872 
873 
874 
875 
876 



SEQ 0044 



PRINT EXPECTED DATA. RECEIVED DATA. AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS: 



Rl 
R2 



OUTPUT : 



877 
878 
879 
880 
881 
882 
833 
884 
885 
886 
887 
888 
889 
89C 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 



007742 
007742 
007746 
007750 
007760 
007760 
007762 
007764 
007766 
007772 
007776 
010000 
0x0002 
010006 
010010 

010012 



010203 



010346 

010146 

0102^o 

012746 010012 

012746 000004 

010600 

104414 

062706 000012 

010300 

000207 



045 



116 



045 



RO 



PRIXOR;: 

SAVREG 

MOV 

XOR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

RTS 

XORFOR: .ASCIZ 
.EVEN 
.SBTTL 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



iSAVE THE REGISTERS 
R2,R3 jEXPECTED DATA 

R1.R3 jFORM THE EXCi USIVE OR 

*X0RF0R,R2,R1,R3 , PRINT THE MESSAGE 
R3.-CSP) 
Rl.-(SP) 
R2.-CSP) 
♦XORFOR.-(SP) 
♦4,-CSP) 
SP,RO 
CIPNTB 
♦12, SP 
R3.R0 
PC 



iRC HA3 XOR ON RETURN 
iRt^RW TO CALLER 



*N#A EXPD: *06*A RECV j *06*A XOR: *06 



PRIEQU 



PRINT BIT NUMBERS AS ASCII EQUIVALENT 



ROUTINE TO CONVERT BIT VALUES 10 ASCII AND PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS: 



010060 
010060 
010064 



000207 



PRIEQU: 



J ♦ 

J 



RO 
Rl 



SAVREG 
RTS 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUIVALENT 



PC 
.SBTTL PRIRAM 



>SAVE THE REGISTERS 
j RE TURN TO CALLER 



PRINT RAM ADDRESS 



jPRINT CONTROLLER RAM ADDRESS. 
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PRIRAM - PRINT RAM ADDRESS 



G4 



SEQ 0045 



904 
905 
906 
907 
908 
909 
910 
911 
91? 
913 



914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 



010066 
010066 
010072 
010072 
010074 
010100 
010104 
010106 
010110 
010114 

010116 



939 
940 
941 
942 

94 3 
944 
945 
946 
94 7 



010160 
010160 
010164 
010170 
010174 
010176 
010200 
010202 
010202 
010204 
010206 
010212 
010216 
010220 
010222 
010226 

010230 



013700 
013701 
010102 
006101 
006100 

010246 
010046 
012746 
012746 
010600 
104414 
062706 
000207 

045 



010446 

012746 010116 

012746 000002 

010600 

104414 

062706 000006 

000207 

045 116 



THIS ROUTINE IS NORMALLY CAlLED ONLY FROM PRINT ROUTINES, 
INPUTS: 

R4 RAM ADDRESS 



iSAVE R1-R5 UNTIL NEXT RETURN 
, PRINT RAM ADORESS IN ERROR 



045 



PRIRAM i 


SAVREG 






PRINTS 


*RAMF0S,R4 




MOV 


R4.-CSP) 




MOV 


ORAMFOR,-(SP) 




MOV 


♦2,-CSP) 




MOV 


SP.RO 




TRAP 


CtPNTB 




ADD 


*6,SP 




RTS 


PC 


RAMFOR j 


.ASCIZ 

.EVEN 


'#NKA CONTROL 



jRETURN 



*06 



.SBTTL PRIADD - PRINT MEMORY ERROR ADORESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



IMPLICIT INPUTS 



PRIADD} 



002236 
002240 



010230 
000003 



000010 
116 



045 PRIAO; 



{ ♦ 



ERRHI 
ERRLO 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.EVEN 



- HIGH ORDER ADORESS 
• LOW ORDER ADDRESS 



ERRHI ,R0 

ERRLO, Rl 

R1.R2 

Rl 

RO 

*PRIAO,R0,R2 

R2,-(SP) 

RO.-(SP) 

OPRIAO, (SP) 

♦3.-CSP) 

SP»RO 

CIPNTB 

010, SP 

PC 



j SAVE R1-R5 INTIL NEXT RETURN 

iGET HIGH ADDRESSS 

j GET LOW ADDRESS 

j COPY LOW ADDRESS 

iSHIFT BIT 15 TO C BIT 

j SHIFT INTO HIGH ORDER 

» PRINT MEMORY ADDRESS IN ERROR 



jRETURN 



*N*A MEMORY ERROR ADDRESS - tf01*05* 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



l PRINT MEMORY ADDRESS 



H4 
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PRITADD - PRINT MEMORY TEST ADDRESS 



SEQ 0046 



948 
949 
950 
951 
952 
955 
954 
955 
^56 
957 
958 
959 
960 
961 
962 
965 



964 



965 

966 
967 
968 
969 
970 
971 
972 
975 
974 
975 
976 
977 
978 
979 
960 
981 
982 
985 
984 
985 
986 
98 7 
988 
989 
990 
991 
992 



010274 
010274 
010500 
010304 



010510 
010510 
010512 
010516 
010322 
010524 
010526 
010552 
010552 
010334 
010540 
010344 
010346 
010550 
010354 

010556 
010421 



THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 
IMPLICIT INPUTS 



ERRHI 
ERRLO 



HIGH OrtDER ADDRESS 
- LOW ORDER ADDRESS 



PRITADD: 



015702 002256 
013701 002240 



010146 
012746 
012746 
010600 
104414 
062706 

010246 
012746 
012746 
010600 
104414 
062706 
000207 

045 
045 



010356 
000002 



000006 



010421 
000002 



000006 



116 
116 



045 PRITO; 
045 PRIT1: 



SAVREG 

MOV 

MOV 

j MOV 

jROL 

jROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
.ASCIZ 
.EVEN 
.SBTTL 



ERRHI. R2 

ERRL0.R1 

R1.R2 

Rl 

RO 

♦PRITO, Rl 

Rl.-CSP) 

♦PRITO. -(SP) 

♦2,-CSP) 

SP.RO 

CtPNTb 

06, SP 

♦PRIT1.R2 

R2.-CSP) 

•PRITl.-(SP) 

♦2,-CSP) 

SP.RO 

OPNTB 

♦6.SP 

PC 



l SAVE R1-R5 UNTIL NEXT RETURN 

j GET HIGH ADORESSS 

iGfcT LOW ADDRESS 

j COPY LOW ADDRESS 

jSHIFT BIT 15 TO C BIT 

j SHIFT INTO HIGH ORDER 

I PRINT MEMORY ADDRESS LOW IN tRROR 



jPRINT MEMORY ADDRESS HIGH IN ERROR 



jRETLKN 



*#N*A 
'*N*A 



MEMORY 
MEMORY 



TEST 
TEST 



ADDRESS 
ADDRESS 



LOW < 
HIGH 



#06' 

■ *06 



SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



ROUTINE 

COMMANO 

INPUT: 



TO ISSUE 
(FORWARD 



A SPACE RECORDS 
OR REVERSE) 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROtS DIRECTION 

BIT15 - IS FORWARD 

BIT15 • 1 IS REVERSE 

FIRST DEVICE LNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



OUTPUT : 



CARRY SET - 5PACE RECORDS COMMANO OK 
CLR - SPACE RECORDS FAILED 



14 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 0047 



993 








994 








995 








996 








997 








998 








999 








1000 








1001 








100? 








1003 








1004 








1005 


010466 






1006 


010466 






1007 


010472 


012737 


000764 010660 


1008 


010500 


0127?7 


140010 010650 


1009 


010506 


005703 




1010 


010510 


100403 




1011 


010512 


010337 


010652 


1012 


010516 


000407 




1013 


010520 


042703 


100000 


1014 


010524 


010337 


010652 


1015 


010530 


052737 


000400 010650 


1016 


010536 


0X2704 


010650 


1017 


0105**' 


• 10465 


000000 


1018 


010 r *■ - 


'^737 


016250 


1019 


01 5 v? 


J3420 




1020 


o: 








01 : 


v'12727 


0OO250 




Ol\s^XJsJ 


000000 






010562 


013727 


002116 




010566 


000000 






010570 


005367 


177772 




0105/4 


001375 






010576 


005367 


177756 




010602 


001367 




1021 


010604 


005337 


010660 


1022 


010610 


001356 




1023 


010612 


000411 




1024 


010614 


016501 


0OOO02 


1025 


01D620 


012702 


000200 


1026 


010624 


020201 




1027 


010626 


001401 




1028 


010630 


000402 




1029 


010632 


000261 




1030 


010634 


000401 




1031 


010636 


000241 




1032 


010640 






1033 


010640 


010400 




1034 


010642 


000207 





RO 



THE CONTENTS OF R4 IS MOVED TO RO 



IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 

SPACE } i 





SAVREG 






MOV 


0500..SOELA 




MOV 


0140010,80$ 




TST 


R3 




BMI 


5$ 




MOV 


R3,90$ 




BR 


10$ 


5$: 


BIC 


♦BIT15.R3 




MOV 


R3,90$ 




BIS 


♦6IT8.80$ 


101: 


MOV 


«80$,R4 




MOV 


R4,TSDB(R5) 


15$ j 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250 




MOV 


0250, (PC)* 




.WORD 







MOV 


LIDLY.CPO* 




.WORD 







DEC 


-6CPC) 




BNE 


.4 




DEC 


22(PC) 




BNE 


.-20 




DEC 


SDELAY 




BNE 


15$ 




BR 


60$ 


20$: 


MOV 


TSSRCR5),R1 




MOV 


*SSR,R2 


25$: 


CMP 


R2.R1 




BEQ 


40$ 




BR 


60$ 


40$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 








MOV 


R4,R0 




RTS 


PC 



jSAVE THE GENERAL REGISTERS 
I SET UP DELAY 

I SET UP COMMAND, SPACE FORWARD 
, CHECK FOR DIRECTION 
jBR, IF REVERSE INDICATED 
jLOAD UP NUMBER OF RECORDS TO SPACE 
iGO DO COMMANO 
, CLEAR DIRECTION BIT 
tLOAD UP NUMBER OF RECORDS TO SPACE 
»SET REVERSE BIT IN COMMANO PACKET 
j SET UP R4 WITH PACKET ADDRESS 
iSENO OUT COMMANO 
»WAIT FOR SSR 
I BR, IF SSR IS SET AND OK 
l DELAY ABOUT ,25 SECONDS 



|BI*1P OELAY COLNTER DOWN 

I BR, IF MORE DELAY 

j BR IF TROUBLE CARRY - CLEAR 

I READ TSSR 

j SET UP EXPECTED 

j ARE THEY OK 

»BR, IF EQUAL • OK 

j TROUBLE EXIT 

,SET CARRY NO TROUBLE 

lEXIT 

j CARRY CLEAR - ERROR 

I PASS PACKET ADDRESS 
I RETURN 



J 4 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



SEQ 0048 



1036 

1057 
1038 
1039 
1040 
1042 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
J 053 
1054 
1055 
1056 
1057 
1058 
1059 
1O60 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1^94 



010650 



010650 000000 



010652 
010654 
010656 
010660 



000000 
000000 
000000 
000000 



PACKET FOR SPACE COMMAND 

.-<. fl0>6177770 

COMMANO WORD 
80$ ; .WORD 

{NUMBER OF RECORDS TO BE SPACED OVER WORD 
90$ : .UORD 

.WORD 

.WORD 



SDELAY: .WORD 
.EVEN 
.SBTTL WRTCHR 



i * 



lOELAY COUNTER 
WRITE CHARACTERISTICS COMMAND 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMHANDS WILL BE ACCEPTED 



INPUT: 



N4 ADDRESS OF PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WGITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT; 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 

SOFTWARE SWITCHES SET AS FOLLOWS: 

FX1FEA • EXTENDED FEATURES PRESENT 
BEN6SW • JUfFER ENABLE SWITCH ON OR OFF 



010662 
010662 
010666 

010672 
010676 
010702 
010706 
010710 
010712 
010716 



SIDE EFFECTS: 



WRTCHR 



005037 
005037 
010465 
004737 
103401 
000435 
016501 
012702 



002230 
002226 

000000 
016336 



000002 
000200 



10$ 



20$ 



SAVREG 




CLR 


BENBSW 


CLR 


EXTFEA 


MOV 


R4.TSDBCR5) 


JSR 


PC, CHKTSSR 


BCS 


20* 


BR 


601 


MOV 


TSSR(RS).R1 


MOV 


0SSR.R2 



j SAVE THE GENERAL REGISTERS 
I CLEAR BUFFER ENABLE SWITCH 

♦CLEAR EXTENDED FEATURES SW 

I SEND OUT COMMAND 

lUAIT FOP SSR 

j BR, IF SSR IS SET AND OK 

I BR IF TROUBLE CARRY « CLEAR 

i READ TSSR 

j SET UP EXPECTED 



SWITCH 



I<4 
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WRTCHR - WRITE CHARACTERISTICS COMMAND 



1095 010722 


032701 


000100 


1096 010726 


001402 




1097 010730 


052702 


000100 


1098 010734 


020201 




1099 010736 


001401 




1100 010740 


000421 




1101 010742 


062704 


C00010 


1102 010746 


011403 




1103 010750 


032763 


000200 000012 


1104 010756 


001402 




1105 010760 


005237 


002226 


1106 010764 






1107 C10764 


032763 


000100 000012 


1108 010772 


001402 




1109 010774 


005237 


002230 


1110 011000 






1111 011000 


000261 




1112 011C02 


000401 




.1113 011004 


00024 1 




1114 011006 


016500 


000002 


1115 011012 


000207 




1116 






1117 






1118 






1119 






1120 






1121 






1122 






1123 






1124 






U25 






1126 






1127 






1128 






1129 






1130 






1131 






1132 






1135 






1134 






1135 






1136 






1137 






1138 






1139 






1140 






1141 






1142 






1X43 






11**4 011014 






1145 011014 






1146 011020 


012704 


011110 


1147 011024 


010465 


000000 


1148 011030 


012703 


000550 


1149 011034 


004737 


016250 


1150 011040 


103417 




1151 011042 







25$: 
40$: 

45$: 
50$: 



60*: 
70$: 



BIT 

BEQ 

BIS 

CMP 

BEQ 

BR 

ADD 

MOV 

BIT 

BEQ 

INC 

BIT 
BEQ 

INC 

SEC 

BR 

CLC 

MOV 

RTS 

.SBTTL 



*ofl,ri 

00FL.R2 
R2.R1 
40$ 
60$ 
$8. 4 

cr». 

0X2,EXTF,XST2(R3) 

45$ 

EXTFEA 

0X2. BUFE, XST2CR3) 

50$ 
BENBSW 



SEQ 0049 



jUAS OFF LINE SET IN TSSR 

I BR, IF NO OFL SET 

I MAKE THEM LOOK ALIKE 

j ARE THEY OK 

j BR, IF EQUAL - OK 

j TROUBLE EXIT 

jPOINT TO WRT CHARA DATA PACKET 

jGET ADDRESS OF MESSAGE BUFFER 

jEXTENOED FEATURES BIT SET? 

j BR IF NO 

jSET EXTENDED FEATURES SW SWITCH 

j BUFFER ENABLE SWITCH SET 
jBR, IF SWITCH NOT SET 
i SET SOFTWARE SWITCH FOR ENABLED 



j SET CARRY NO TROUBLE 
70$ jEXIT 

tCARRY CLEAR » ERROR 
T$SR(R5),R0 i RETURN TSSR CONTENTS 

PC jRETURN 

REWIND - POSITION TAPE (REWIND) COMMAND 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR 90T 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE; 

DO A SOFT INIT 

00 A WRITE CHARACTERISTICS 

JSR PC, RE WIND 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



REWIND: 


* 
'SAVREG 






MOV 


*RWOACK # R4 




MOV 


R4.TSDBCR5) 




MOV 


0360. ,R3 


10$: 


JSR 


PC.WAITF 




BCS 


20$ 




DELAY 


250, 



iSAVE R1-R5 UNTIL NEXT RETURN 

iGET PACKET ADDRESS 

iSENO PACKET ADDRESS TO EXECUTE 

I ENOUGH TIME FOR 2400' REEL TO REWIND 

jWAIT FOR SSR TO SET 

tLEAVE WHEN SSR IS SET 

iWAIT FOR .25 SECONDS 



L4 
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REWIND - POSITION TAPE (REWIND) COMMAND 



SEQ 0050 





011042 


012727 


000372 




011046 


000000 






011050 


013727 


002116 




011054 


000000 






011056 


005367 


177772 




011062 


001375 






011064 


005367 


177756 




011070 


001367 




1152 


011072 


005303 




1153 


011074 


001357 




1154 


011076 


000241 




1155 


011100 


010400 




1156 


011102 


000207 




1157 








1159 




011110 




1161 


011110 






1162 


011110 


102010 




1163 


011112 


000000 




1164 








1165 








1166 








1167 








1168 








1169 








1170 








1171 








1172 








1173 








1174 








1175 








1176 








1177 








1178 








1179 








1180 








1181 








1182 








1183 








1184 








1185 








1186 








1187 








1188 








1189 








1190 








1191 








1192 








1193 


011114 






1194 


0U114 






1195 


011120 


012701 


002242 


1196 


011124 


012702 


000201 


1197 


011130 


005003 




1198 


011132 


004737 


016336 


1199 


011136 


112765 


000000 


1200 


011144 


004737 


016336 


1201 


011150 


010265 


OvOOOO 


1202 


011154 


004737 


016336 



20$ 5 



RWPACK; 



i ♦ 



MOV 


0250. .(PC)* 


.WORD 





MOV 


LiDLY,(PC)> 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


, -20 


DEC 


R3 


BNE 


10$ 


CLC 




MOV 


R4.R0 


RTS 


PC 


.■*.»10 


>£177770 


.WORD 


102010 


.WORD 





.SBTTL 


CKRAM - C 



l BUMP COUNTER DOWN 

{KEEP GOING 

iCLEAR CARRY TO SET ERROR 

:»'ASS THE PACKET ADDRESS 

{RETURN 



iPOSTION COMMAND (REWIND) 
jNOT USED 
COMPARE RAM TO I/O PACKET 



ROUTINE TO READ 1HE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET, 



INPUT : 



R4 
R5 



OUTPUT} 



CARRY 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 

SIDE EFFECTS; 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



CKRAM; ; 



000000 



10$; 



SAVREG 




MOV 


ORAMDATA, Rl 


MOV 


*RMPKTBEG,R2 


CLR 


R3 


JSR 


PC.CHKTSSR 


MOVB 


00,TSDB(R5) 


JSR 


PC.CHKTSSR 


MOV 


R2,TSDB(R5) 


JSR 


PC.CHKTSSR 



{SAVF THE GtNERAL REGISTERS 

jADDRESS TO SAVE THE RAM DATA 

{BYTE ADDRESS OF FIRST RAM DATA 

{CLEAR THE ERROR FLAG 

{WAIT FOR SSR 

i SET MAINTENANCE MODE 

(WAIT FOR SSR TO SET 

{SELECT NEXT RAM ADDRESS 

iWAIT FOR SSR TO SET 



M4 
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CKRAM - COMPARE RAM TO I/O PACKET 



SEQ 0051 



1203 


011160 


116511 


000000 


1204 


011164 


122124 




1205 


0U166 


001401 




1206 


011170 


005203 




1207 


011172 


005202 




1208 


011174 


020227 


000210 


1209 


011200 


003761 




1210 


011202 


005703 




1211 


011204 


001402 




1212 


011206 


000241 




1213 


011210 


000401 




1214 


011212 


000261 




1215 


011214 


012737 


000010 


1216 


011222 


000207 




1217 








1218 








1219 








1220 








1221 








1222 








1223 








1224 








1225 








1226 








1227 








1228 








1229 








1230 








1231 








1232 








1233 








1234 








1235 








1236 








1237 








1238 








1239 








1240 








1241 








1242 








1243 








1244 








1245 


011224 






1246 


011224 






124 7 


011230 


012701 


002242 


1248 


011254 


012702 


000167 


1249 


011240 


005003 




1250 


011242 


004 737 


016336 


1251 


011246 


112765 


000000 


1252 


011254 


004737 


016336 


1253 


011260 


C10265 


000000 


1254 


011264 


004737 


016336 


1255 


011270 


116511 


000000 


1256 


011271 


122124 




1257 


0112/.. 


001401 




1258 


011300 


005203 




1259 


011302 


005302 









MOVB 


TSBA(R5),(R1) » 






CMPB 


(R1)+,CR4)* j 






BEQ 


20$ i 






INC 


R3 , 




20* j 


INC 


R2 1 






CMP 


R2.0RMPKTEND { 






BLE 


\0t j 






TST 


R3 , 






BEQ 


301 , 






CLC 








BR 


50$ j 




30$; 


SEC 




002302 


50$ j 


MOV 


08..RAMSIZ j 






RTS 


PC j 






.SBTTL 


CKRAM2 - COMPARE RAM TO 



READ THE RAM DATA 

COMPARE TO EXPECTED 

BRANCH IF OK 

SET ERROR FLAG 

ADDRESS OF NEXT RAM LOCATION 

REACHED END YET ? 

BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 

BRANCH IF NO*i 

CLEAR CARRY TO SHOW ERROR 

AND EXIT 

SHOW GOOD COMPARE 

SETUP RAMSIZ FOR PRAMPKT ROUTINE 

RETURN 

I/O CHARACTERISTICS DATA 



ROUTINE TO READ THE FIRST 8 OR A BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA T J A CHARACTERISTICS DATA BLOCK. 



INPUT: 



R4 
R5 



OUTPUT: 



CARRY 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 

THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM, 

RAMSIZ IS SET TO 8. OR 10, FOR PRAMPKT ROUTINE 

SIDE EFFECTS: 

THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 



000000 



CKRAM2: 


SAVREG 






MOV 


0RAMDATA.R1 




MOV 


0RMCH6EG.R2 




CLR 


R3 




JSR 


PCCHKTSSR 




MOVB 


*0,TSD8CR5) 


10$: 


JSR 


PCCHKTSSR 




MOV 


R2.T5DBCR5) 




JSR 


PCCHKTSSR 




MOVB 


TSBA(R5),(R1) 




CMPB 


(R1)*.(R4)* 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 



iSAVF THE GENERAL 

i ADDRESS TO SAVE 

iBYTE ADDRESS OF 

j CLEAR THE ERROR 

jWAIT FOR SSR 

j SET MAINTENANCE 

I WAIT FOR SSR TO 

; SELECT NEXT RAM 

iWAIT FOR SSR TO 

I READ THE RAM DATA 

{COMPARE TO EXPECTED 

l BRANCH IF OK 

i SET ERROR FLAG 

I ADDRESS OF NEXT RAM LOCATION 



REGISTERS 
THE RAM DA T A 
FIRST RAM DATA 
FLAG 

MODE 
SET 

ADDRESS 
SET 



N4 
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CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 0052 



1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 
1274 
1275 
1276 
1277 
1278 
1279 
1280 
1281 
1282 
1283 
1264 
1265 
1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
3 315 
1316 



011304 
011312 
011316 
011320 
011326 
011332 
011334 
011336 
011342 
011344 
011346 
011350 
011352 
011354 
011356 



011360 
011360 
011364 
011370 
011374 
011400 
011402 
01i406 
011410 
011412 
011414 
011416 
011422 
011426 
011430 
011432 
011434 



012737 
005737 
001407 
012737 
020227 
003750 
000403 
020227 
003744 
005703 
001402 
00024 1 
000401 
000261 
000207 



010037 
010137 
005737 
001403 
004737 
010001 
005004 
005003 
010205 
011264 
01116* 
0222 . 
001401 
005203 
062704 



000010 0023C2 
002226 

000012 002302 
000200 



000176 



25$: 
27$: 



30$; 
50$: 



MOV 

1ST 

BEQ 

MOV 

CMP 

BLE 

BR 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



48. .RAMS1Z 

EXTFEA 

25$ 

410. .RAMSIZ 

R2,0RMCHEND 

10$ 

21\ 

R2.4RMCHEND-2 

10$ 

R3 

30$ 

50$ 

PC 



ASSUME EXTFEA NOT SET 

IS THE SOFTWARE EXTENDED FEATURES SET 
BR, IF NOT SET 

SET RAMSIZ FOR EXTEND FEATURES 
AT END OF EXTENDED BUFFER 
BR, IF NOT AT END YET 
AT END BRANCH 
REACHED END YET ? 
BRANCH TILL ALL READ 
WAS AN ERROR FOUND ? 
BRANCH IF NOT 
CLEAR CARRY TO SHOW ERROR 
AND EXIT 

SHOW GOOD COMPARE 
{RETURN 



CKMSG - COMPARE WRITE THAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE b TORED FOR 
ERROR PRINT ROUTINES, 



INPUT : 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPD MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIAOD 
RCVLOADD 



BUFFER IS 5ET 
BUFFER IS SET 



TO EXPD DATA 
TO RECV DATA 



SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: : 



002304 
002306 
003134 

017316 



002322 
002466 



000002 



10$ 



15 J 



25$ 



SAVREG 

MOV RO, RCVHIAOD 

MOV Rl.RCVLOAD 

TST KTENABLE 

BEQ 10$ 

JSR PC.SETMAP 

MOV R0.R1 

CLR R4 

CLR R3 

MOV R2,R5 

MOV (R2),EXPMSG(R4) 

MOV (R1),RECMSG(R4) 

CMP (R2)*,CR1)* 

BEQ 25$ 

INC R3 

ADD #2,R4 



{SAVE R1-R5 UNTIL NEXT RETURN 

{SAVE RECV HIGH ADDRESS 

{SAVE RECV LOW ADDRESS 

{TESTING ABOVE 28K? 

i BR IF NO 

{RETURN ADDRESS BIASED TO PAR6 IN RO 

tGET RETURNED ADDRESS BIASED TO PAR6 

{WORD IN BUFFER 

{CLEAR ERROR SEEN FLAG 

{GET EXPD BUFFER ADDRESS 

{SAVE LXPD FOR ERROR REPORT 

{SAVE RECV FOR ERROR REPORT 

lEXPD EQUAL RECV? 

{BR IF YES 

{SET '-RHOR 5EFN FLAG 

{POINT TO NEXT WORD ADDRESS 



B! 



J 
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CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



SEQ 0053 



1317 011440 


020427 


000014 


1318 011444 


003764 




1319 011446 


032765 


000200 000012 


1320 011454 


001403 




5 321 011456 


020427 


000016 


1322 011462 


003755 




1323 011464 


005703 




1324 011466 


001402 




1325 011470 


000241 




1326 0114 72 


000401 




1327 011474 


000261 




1328 011476 


000207 




1329 






1330 






1331 






1332 






1333 






1334 






1335 






1336 






1337 






1338 






1339 






1340 






1341 






1342 






1343 






1344 






1345 






1346 






1347 






1*46 






1549 






1350 






1351 






1352 






1353 






1354 






1355 






1356 011500 






1357 011500 






1358 011504 


020327 


000144 


1359 011510 


003412 




1360 011512 


012703 


000144 


1361 011516 






011516 


012746 


011632 


011522 


012746 


000001 


011526 


010600 




011530 


104417 




011532 


062706 


000004 


1362 011536 


010037 


002304 


1363 011542 


010137 


002306 


1364 011546 


005737 


003134 


1365 011552 


001403 




1366 011554 


004737 


017316 


1367 011560 


010001 




1368 011562 


005004 





50$} 



55$j 
601} 



CMP R4,#14 jDONE FIRST 7 WORDS? 

BLE 151 iBR IF NO 

BIT ♦X2.EXTr,XSr2CR5)iIS EXTENOED FEATURES SET IN EXPO? 

BEQ 501 iBR IF NO 

CMP R4.016 lOONE EXTENOED FEATURES WORD? 

BLE 151 | BR IF NO 

TST R3 i ANY ERRORS SEEN? 

BEQ 55$ iBR IF NO 

CLC i SET FAILURE 

BR 60$ i 

SEC iSET SUCCESS 

RTS PC iRETURN 

.SBTTL CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
BLFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT: 



RO 
Rl 
R2 
R3 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORDER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 
NUMBER OF BYTES TO COMPARE 



OUTPUT i 



CARRY 



SET 
CLR 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 
RCVHIAOD 

RCVLOADD 



MESSAGE BUFFERS MATCH 
MESSAGE BUFFERS DON'T HATCH 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG2: : 



5$: 



ICv. 



SAVREG i 

CMP R3 , fRECMSG - EXPMSG 

BLE 5$ i 

MOV fRECMSG -EXPMSG, R3 

PRINTF tOEBUGMSG \ 

MOV #OEBUGMSG,-(SP) 

MOV «1,-(SP) 

MOV SP.RO 

TRAP C$PNTF 

ADO #4 . SP 

MOV RO.RCVHIAOO i 

MOV Rl.RCVLOAD j 

TST KTENABLE i 

BEQ 101 i 

JSR PCSETMAP i 

MOV R0,R1 i 

CLR R4 i 



SAVE R1-R5 UNTIL NEXT RETURN 

I MO IS COUNT ABOVE MAX ALLOWED? 

MO BR IF NO 

i MO 

MO 



SAVE RECV HIGH AOORESS 

SAVE RECV LOW ADDRESS 

TESTING ABOVE 28K? 

BR IF NO 

RETURN ADDRESS BIASED TO PAR6 IN RO 

GET RETURNED ADDRESS BIASED TO PAR6 

WORD IN BUFFER 
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CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



C5 



SEQ 0054 



1369 


011564 


005005 






CLR 


R5 i CLEAR ERROR SEEN FLAG 




1370 


011566 


111264 


002322 




151} MOVB 


(R2),EXPMSG(R4) , SAVE EXPO FOR ERROR REPORT 




1371 


011572 


111164 


002466 




MOVB 


CR1),RECMSGCR4) ,SAVE RECV FOR ERROR REPORT 




1372 


011576 


122221 






CMPB 


CR2)*,(R1)* iEXPD EQUAL RECV? 




1373 


011600 


001401 






BEQ 


251 |BR IF YES 




1374 


011602 


005205 






INC 


R5 ? SET ERROR SEEN FLAG 




1375 


011604 


062704 


000001 




25$s ADO 


•1. R4 iPOINT TO NEXT BYTE 




1376 


011610 


020405 






CMP 


R4,R5 iDONE ALL BYTES? 




1377 


011612 


002001 






BGE 


50$ |BR IF YES 




1378 


011614 


000764 






BR 


15$ |D0 NEXT BYTE 




1379 


011616 


005705 






50*5 TST 


R5 ,ANY ERRORS SEEN? 




1380 


011620 


001402 






BEQ 


55$ |BR IF NO 




1381 


011622 


000241 






CLC 


iSET FAILURE 




1382 


011624 


000401 






BR 


60$ t 




1383 


011626 


000261 






551 i sec 


iSET SUCCESS 




1384 


011630 


000207 






601: RTS 


PC i RE TURN 




138b 
















1386 


011652 


120 


122 


117 


DEBUGMSGs 


.ASCIZ 'PROGRAM INTERNAL ERROR -CKMSG2 MESSAGE BUFFER 


EXCEEDED 


1587 


011722 


045 


116 


045 


FERCM: .ASCII 


/*N*A ♦♦♦/ 




1388 


011755 


040 


040 


124 


ERCM: .ASCIZ 


/ TSSR ERROR CODE REC'D • / 




1389 


011766 


056 


056 


056 


SIMSG: .ASCIZ 


/ AFTER DOING SOFT INIY/ 




1390 


012021 


124 


105 


123 


TINERRi .ASCIZ 


/TEST} .../ 




1391 










.EVEN 






1392 
















1393 










i ♦ 






1394 
















1395 










, PRINT ROUTINE 


TO FATAL SOFT INIT ERRORS 




1396 
















1397 










1 INPUT; 






1398 
















1399 










i Rl 


CONTENTS OF TSSR AT ERROR 




1400 
















1401 










I SIDE EFFECTS? 






1402 
















1403 
1404 
1405 










\ EXECUTES DROP UNIT TO CEASE TESTING 


















1406 
















1407 


012054 
012054 








BGNMSG 
SFXMSGit 


SFIMSG 




1408 


012054 


0O4737 


006024 




JSR 


PC.PRirsSR iPRINT CONTENTS OF TSSR REGISTER 




1409 


012040 


004737 


017202 




JSR 


PC.CKDROP jDROP UNIT, IF ALLOWED 




1410 


012044 
012044 








ENOMSG 
L 10003 j 






1411 
1412 


012044 


104423 






TRAP 


C$MSG 












j ♦ 




,. 


1413 










, PRINT ROUTINE 


TO PRINT THE CONTENTS Of 




1414 










I TSSR ANO A COMMANO PACKET OTHER THAN GET STATUS COMMANO PACKET. 




1415 










i 






1416 










liNPUTSi 






1417 










1 






1418 










i Rl 


TSSR CONTENTS 




1419 










i R4 


ADDRESS OF COMMAND PACKfcT 




1420 










i 






14."U 










t ■ 






X4c^ 










< 







I ©90 



D 
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CKMSG2 - COMPARE EXPO RECV MESSAGE BUFFERS 



SEQ 0055 



1423 

1424 
1425 
1426 

1427 



1423 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 

1*41 
144? 
1443 
1444 



1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 

1456 

1457 



1458 
1459 
1460 
1461 
1462 
1463 
*464 
1465 
1466 
1467 
1468 
1469 
14 70 



012046 
012046 
012046 
012052 
012056 
012062 
012062 
012062 



012064 
012064 

012064 
012070 
012074 
012100 
012100 
012100 



012102 
012102 
012102 
012106 
012106 
012106 



004737 
012700 
004 /37 



104423 



006024 
000004 
007370 



PKTSSRsj 



BGNMSG PKTSSR 



L 10004 j 



JSR 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 

04.RO 

PC.PRIPKT 



CIMSG 



jPRINT TH€ CONTENTS OF TSSR REGISTER 

l NO. OF WORDS IN PACKET 

I PRINT THE CONTENTS OF COMMAND PACKET 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A GET STATUS COMMAND PACKET. 



INPUTS} 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMANO PACKET 



004757 

012700 
004737 



104423 



006024 
000002 
007370 



BGNMSG PKTGETS 

PKTGETS:: 

JSR PC.PRITSSR 
MOV *2,R0 
JSR PC.PRIPKT 
ENOMSG 

L 10005: 

TRAP CIMSG 



iPRINT THE CONTENTS OF TSSR REGISTER 
»N0. OF WORDS IN GET STATUS PACKET 
, PRINT THE CONTENTS OF COMMANO PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



004737 
104423 



006C24 



SFFMSGj 
L 10006} 



Rl 
R4 



BGNMSG 

JSR 
ENOMSG 

TRAP 

.SBTTL 



TSSR C STENTS 

ADDRESS OF COMMAND PACKET 



SFFMSG 
PC.PRITSSR 



jPRINT CONTENTS OF TSSR REGISTER 



CIMSG 
PKTMES 



- PRINT TSSR ANO MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
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PKTHES - PRINT TSSR AND MESSAGE BUFFER 



E5 



SEQ 0056 



1471 
1472 

1473 

1474 
14 75 
1476 

1477 



1478 
1479 
1480 
1481 
1402 
1485 
1484 
1485 
1486 
1487 
1488 
1489 
1490 

1491 
1492 
1493 

1494 



1495 
1496 

1497 
1498 
1499 
1500 

lbOl 

150? 
1503 
1504 
1505 
1506 
1507 
1508 

1509 
.1510 
1511 
1512 
1513 
1514 



1515 
1516 
1517 
1518 



012110 
012110 
012110 
012114 
012116 
012120 
012124 
012124 
012124 



012126 
012126 
012126 
012132 
012136 
012142 
012142 
012142 



012144 
012144 
012144 
012150 
012154 
012156 
012162 
012166 
012166 
012166 



004737 
010200 
010301 
004737 



104423 



006024 
014242 



I 
PKTNESi 



BGNMSG PKTMES 



L 10007; 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 
.SBTTL 



PC.PRITSSR 
R2.R0 
R3.R1 
PCPRMESS 



1 PRINT CONTENTS OF TSSR 
I LOW ORDER ADDRESS 
1 HIGH ORDER ADDRESS 
iPRINT THE MESSAGE BUFFER 



CIMSG 
ADDSSR 



- PRINT TEST ADDRESS AND TSSR 



PRINT ROUTINE TO PRINT THE CONTENTS OF 
TSSR AND A MEMORY TEST ADDRESS 



INPUTS* 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



BGNMSG ADDSSR 



004737 
016501 
004737 



104423 



010274 
000002 
006024 



ADDSSR j t 




JSR 


PC.PRITADD 


MOV 


TSSR(R5),R1 


JSR 


PC.PRITSSR 


ENOMSG 




L 10010 j 




TRAP 


r$MSG 


.SBTTL 


MSGEXP - PR 



iPRINT MEMORY TEST ADDRESS 

jGET CURRENT TSSR 

jPRINT THE CONTENTS OF TSSR REGISTER 



MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 



PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS} 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012700 
005737 
001402 
012700 
004737 



104423 



000007 
002226 

00O010 
014552 



MSGEXPj 



51; 

L 10011 



1 ♦ 



BGNMSG MSGEXP 



MOV 


*7,R0 


TST 


EXTFEA 


BEQ 


51 


MOV 


#8. ,R0 


JSR 


PC.PRMSGEXP 


ENOMSG 





lASSUME NO EXT FEATURES 

lEXT FEATURES SET? 

iBR IF NO 

»EXT FEATURE BUFFER IS 8 UORDS 

iPRINT EXPD/REC*/ MESSAGE BUFFERS 



TRAP 



CIMSG 



.SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 



tPRlNT ROUTINE TO PRINT FIFO EXP/RECV DATA 
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FIFEXP - PRINT FIFO EXP/RECV DATA 



F5 



SEQ 0057 



1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 

1528 



1529 



1530 
1531 
1532 



1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 

1550 
1551 
1552 
1553 



012170 
012170 
012170 
012170 
012172 
012176 
012202 
012204 
012206 
012212 
012212 
012216 
012222 
012224 
012226 
012232 
012234 
0<2240 
012240 
012240 
012242 
012311 



151>4 
1S5S 



01235C 
012350 
012350 
012354 
012356 
012360 
012360 
012362 
012366 
012370 
012372 
012376 
012400 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
0X0600 
104415 
062706 
010100 
004737 



104423 
045 
045 



Rl - BYTE COUNT 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP j 



BGNMSG FIFEXP 



012242 
000002 



000006 

012311 
000001 



000004 
015122 



116 
116 



045 

045 



L10012: 

FIF1MSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

MOV 

JSR 

ENDMSG 

TRAP 



GFIF1MSG.R1 

Rl.-CSP) 

*FIF1MSG,-(SP) 

♦2.-CSP) 

SP.RO 

CIPNTX 

♦6.SP 

0FIF2MSG 

*FIF2MSG,-(SP) 

•l.-(SP) 

SP.RO 

CIPNTX 

04, SP 

Rl.RO 

PC.PRBYTEXP 



I PRINT BYTES TRANSFERRED 



t PRINT HEADER MSG 



jGET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



.EVEN 
.SBTTL 



CIMSG 

.ASCIZ 

.ASCIZ 



'*NiiA NUT-6ER OF BYTES TRANSFERRED 
»*N*A FIFO DATA BYTES IN ERROR t' 



*D2 



MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012412 

C12100 

001410 

010046 

012746 000001 

010600 

104415 

062706 000004 

000766 

012700 000012 



MSGSTAT 
10$: 



BGNMSG MSGSTAT 



20$ 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

MOV 



♦STATC0D.R1 

(R1)*,R0 

20$ 

RO 

RO,-(SP) 

♦ l.-(SP) 

SP.RO 

CIPNTX 

*4,SP 

10$ 

010. ,R0 



l ASCII ADDRESS TABLE 
I DONE ALL MSG LINES? 
iBR IF YES 
jPRINT STATUS BIT NAMES 



iDO ANOTHER MSG LINE 

j NUMBER OF WORDS IN A READ STATUS BUFFER 



G5 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 



SEQ 0058 



1556 
1557 



1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
.1566 
1567 
1568 
1569 
11370 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 

1581 
1582 
1583 
1584 



1585 
1586 
1587 

158C 



1589 
1590 
1591 
1592 
1593 
1594 
1595 
15% 
1597 
1598 
1599 
1600 
loOl 
1602 



012404 
012410 
012410 
012410 

012412 
012430 
012472 
012563 
012654 
012745 
013007 



013064 
013064 
013064 
013070 
013072 
013074 
013074 
013076 
013102 
013104 
013106 
013112 
013114 
013120 
013124 
013124 
013124 

013126 
013146 
013221 
013320 

013417 
013516 
013615 
013714 



004737 014552 



104423 

012430 
045 
045 
045 
045 
045 
045 



012472 
116 
116 
116 
116 
116 
116 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
0O0766 
012700 
004737 



104423 

013146 
045 
045 
045 
045 
045 
045 
045 



013126 



000001 



000OO4 

000012 
014552 



013221 
116 
116 
116 
116 
116 
116 
116 



012563 
045 
045 
045 
045 
045 
045 



013320 
045 
045 
045 

045 
045 
045 
045 



L10013; 



JSR 
ENDMSG 



TRAP 



PC.PRMSGEXP 
CIMSG 



l PRINT EXPD/RECV MESSAGE BUFFERS 



STATCOO; 

1*:. ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 



2$ 
31 
4$ 

5$ 



6$; .ASCIZ 



.WORD 
•*N*A Top* 
•#N#A 
•*N*A 
•#N*A 
»*N*A 
'*N*A 



Tap* 



L*,2l,3«,4t,5t t 6l a 

But Signal* In Word 08:' 

PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
IRESV2<14> II0ENT<11> IHER <8> I0NL<5> 
IRESV1<13> ICER <10> ISPEED<7> ILDP<4> 

Bus Signals in Word 09 :' 

DATMIS<7> ILW<6> 0UTRDY<5> INRDY<4>' 



IRWD<2>' 
IFBY<1>' 
IFPT<0>' 



.EVEN 



,SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



MSGLOOP i 
10$; 



BGNMSG MSGLOOP 



20$ t 



L10014: 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

'RAP 

ADD 

Ba 

MOV 
JSR 
ENDMSG 



*L0OPCO0,Rl 

(Rl)^RO 

201 

RO 

RO.-CSP) 

♦l.-(SP) 

SP.RO 

CIPNTX 

04.SP 

101 

♦10..R0 

PC.PRMSGEXP 



j ASCII ADDRESS TABLE 
»DONE ALL MSG LINES? 
iBR IF YES 
1 PRINT STATUS BIT NAMES 



l DO ANOTHER MSG LINE 

l NUMBER OF WORDS IN A READ STATUS BUFFER 

I PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



CIMSG 



LOOPCOO: 
U;, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



21 
31 
41 
51 
61 
7$ 



.WORD 
*N*A Tap* 



'#N#A 
»*N*A 
'*N*A 
'#N*A 
■*N*A 
'*N#A 



U t 2i. 3*. 4$. 5*. 61, 71,0 
Bu* Loopback Signal* in Word 06: 

IRESV2<14> 

IWRT->IIDENT<11> 
IEDIT->IHER <08> 
ITAD1->I0NL <05> 
IRWU ->IRWD <02> 



PARERR<15> 
IHISP->IE0T<12> 

IWFM ->IFMK<09> 
ITAD0->IRDY<06> 
IREW ->IDBY<03> 
IGO ->IFPT<00> 



IRESV1<13> 
IREV »>ICER <10> 
IFAD ->ISPEED<07> 
IERASE->ILDP <04> 
IFEN ->IFBY <01> 



.EVEN 

.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



I ♦ 



jPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



UK 



J 
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SEQ 0059 



1605 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 

1613 
1614 
1615 



1616 
1617 
1618 
1619 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
1627 
1628 
162 s ' 

1630 
1631 
3632 
1633 
1634 



1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
164 7 
1648 
1649 
1650 
1651 
1652 
1653 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

PCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



013742 
013742 
013746 
013752 
013752 
013752 



012700 000012 
004737 014552 



104423 



MSGSUB: 



L10015: 



BGNMSG MSGSUB 



MOV 
JSR 
ENOMSG 

TRAP 

.SBTTL 



*10. # R0 
PC, PRMSGEXP 



tSIZE OF WRITL SUBSYSTEM BUFFER 
jPRINT EXPD/RECV MESSAGE BUFFERS 



CIMSG 

MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



013754 
013754 
013754 
013760 
013764 
013770 
013774 
013774 
013774 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 

IMPLICIT INPUTS: 

ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 010160 

013701 002232 

013702 002234 
004737 007742 



104423 



MEMADD : 



BGNMSG MEMADD 



L 10016: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PCPRIXOR 



C$MSG 



jPRINT MEMORY ADDRESS IN ERROR 
j GET EXPO DATA 
jGET RECEIVED DATA 
jPRINT EXPD/RECV 



.SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 

INPUTS: 

R4 POINTER TO COMMAND PACKET 

IMPLICIT INPUTS: 



RAMOATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



15 
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16S4 
1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1665 
1664 
1665 
1666 
1667 
1668 
1669 
1670 



1671 
1672 
1675 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 



013776 
013776 
014002 
014006 
014010 
014012 
014014 
014024 
014026 
014052 
014036 
014046 
014052 
014060 
014066 
014066 
014070 
014074 
014100 
014102 
014106 
014112 
C14114 
014116 
01412? 
014124 
014130 
014132 
014136 
014140 
014142 
014146 
014150 
014154 

014156 



012701 
005002 
122124 
001005 

0004 36 
116105 
116403 

042703 
116137 
116437 

010346 
013746 
013746 
010246 
012746 
012746 
OlOoOO 
104414 
062706 
005202 
005737 
001404 
020237 
003724 
000403 
020227 
002720 
005037 
000207 

045 



l - 



PRAMPKT; 



002242 



177777 
177777 

177400 
177777 
177777 



002232 
002234 

014156 
000005 



000014 
002302 
002302 

000010 
002302 

116 



5$ 



7$ 



SAVREG 

MOV 

CLR 

CMPB 

BNE 



#RAMDATA,R1 

R2 

CR1)»,CR4)» 

7$ 



FORCERROR 



7$,N0TSSR 



002234 
002232 



10$ 



15$ 
20$ 
25$ 



BR 10$ 

MOVB -1(R1),R5 

MOVB *1(R4),R3 

XOR R5.R3 

BIC #177400, R3 

MOVB -KRD.RECV 

MOVB -1(R4),EXPD 

PWINTB #RAMASC , R2 , RECV , EXPO , R3 

MOV R3,-CSP) 

MOV EXPO.-(SP) 

MOV RECV.-(SP) 

MOV R2,-(SP) 

MOV #RAMASC.-(SP) 

MOV #5, (SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD #14, SP 

INC R2 

TST RAMSIZ 

BE3 15$ 

CMP R2.RAMSIZ 

BLE 5$ 

BR 25$ 

CMP R2,#8. 

BLT 5$ 

CLR RAMSIZ 

RTS PC 



SEQ 0060 



j SAVE R1-R5 UNTIL NEXT RETURN 

j DATA FROM THE RAM 

iINIT BYTE NUMBER 

jCOMPARE EXPECTED, RECEIVED 

I BR IF NO MATCH 



iSSO 
iGET 
iGET 
j XOR 
(LOW 
iGET 
jGET 



RECV RAM DATA 
EXPO PACKET DATA 
EXPD/RECV 
BYTE ONLY 
RECEIVED RAM DATA 
EXPECTED RAM DATA 



»UPDATE BYTE COLNT 
I DEFAULT TO 8.? 
»BR IF YES 
iDONE ALL BYTES? 
j BR IF NO 

iDONE DEFAULT NUMBER OF BYTES? 

i BR IF NO 

j SET DEFAULT RAMSIZ 

jRETURN 



014242 



045 RAMASC: .ASCIZ »#N*A BYTE: *D2*A RAM: #03*A Packet: *03*A X0R:*03' 
.EVEN 
.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



THIS ROUTINE PRINTS TH£ CONTENTS OF 

THE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE 

TSV-05. 

INPUT j 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NCTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



J5 
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1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 



1711 



1712 
1713 
1714 

1715 
1716 
1717 
1718 



1/19 
17?0 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
17*0 
17?l 

1732 
1733 

1734 
17 35 
1736 
173? 
1738 
1739 



014242 
014246 
014250 
014254 
014256 
014260 
014262 
014264 
014266 
014266 
014270 
014272 
014276 
014302 
014304 
014306 
014312 
014312 
014316 
014322 
014324 
014326 
014332 
014334 
014336 
014340 
014342 
014346 
014350 
014350 
014352 
014354 
014360 
014364 
014366 
014370 
014374 
014376 
014402 
0144^4 
014406 
014414 
014416 

014420 
0144*>5 
014523 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005OO4 
010501 
01030a; 
001403 
004737 
010005 

012546 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020427 
003005 
002761 
032 763 
001355 
000207 

045 

0*5 
045 



003134 



10*: 



014420 
000003 



000010 

014465 
000001 



000004 



017316 



014523 
000003 



000010 
000007 

000200 00001? 



20*: 



50 4 



116 045 PROASCj 

116 0*5 PR1ASC: 
116 045 PRASCj 



SAVREG 

MOV 

TST 

BNE 

CLR 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

AOD 

CLR 

MOV 

MOV 

BEQ 

JSR 

MOV 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

AOD 

INC 

CMP 

BGT 

BLT 

BIT 

BNE 

RTS 

.ASCIZ 
.ASCIZ 

.ASCIZ 

.EVEN 

.SBTTL 



R0.R5 

KTENABLE 

10$ 

Rl 

R1.R3 

RO 

Rl 

*PR0ASC,R1,R5 

R5.-CSP) 

Rl.-CSP) 

♦PROASC.-CSP) 

♦3.-CSP) 

SP.RO 

C$PNTX 

♦10. SP 

♦PR1ASC 

♦PRIASC.-(SP) 

•1,-CSP) 

SP.RO 

ClPNTX 

#4,SP 

R4 

R5.R1 

R3.R0 

20$ 

PC.SETMAP 

R0.R5 

*PRASC,R4,(R5) 

(R5)*,-(SP) 

R4.-CSP) 

♦PRASC.-(SP) 

♦3,-CSP) 

SP.RO 

ClPNTX 

♦10, SP 

R4 

R4.07 

50$ 

20$ 

*X2.EXTF,XST2C 

20$ 

PC 



SEQ 0061 



j SAVE THE REGISTERS 

» SAVE LOW ORDER ADDRESS 

i ADDRESS ABOVE 28K? 

jBR IF YES 

I SET HIGH ORDER ADDRESS TO 

I SAVE HIGH ORDER ADDRESS 

iSHIFT 3IT15 TO C BIT 

I SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



jPRINT HEADER FOR CONTENTS 



i NUMBER OF THE NEXT WORD 

l COPY LOW ORDER ADDRESS 

jCOPY HIGH ORDER ADDRESS 

j BR IF NOT ABOVE 28K 

I SETUP PAR ADDRESS IN RO 

iGET PAR FORMAT ADDRESS ABOVE 28K 

j PRINT THE CONTENTS OF MEMORY BUFFER 



iNUMBER OF THE NEXT 
l DONE ALL YFT ? 
j BRANCH IF ALL DONE 
iPRINT FIRST 7 WORDS 
R3)jEXTENDED FEATUTES ON ? 
, PRINT EXTENDED STATUS WORD 
I RE TURN 



'UN** Me*b&ge Buffer Addree« 
'«N*A M«ta»0« Buffer Contents 
'*N#A Word*DUA: *0' 



H0HO5 



PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

PO - NUMBER OF WORDS IN BUFFER 
IMPLICIT INPUTS: 



I<5 
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SEQ 0062 



1740 
1741 
1742 
1745 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 



1754 



1755 
1756 
1757 
1758 
1759 
1760 
1761 



1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 



014552 
014552 
014556 
014560 
014564 
014566 
014572 
014574 
014576 
014576 
014600 
014602 
014606 
014612 
014614 
014616 
014622 
014622 
014626 
014632 
014634 
014636 
014642 
014644 
014650 
014654 
014656 
014660 
014670 
014670 
014672 
014674 
014676 
014700 
014704 
014710 
014712 
014714 
014720 
014722 
014724 
014726 
014730 

014732 
014777 
015035 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 

045 
045 
045 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002306 
002304 



014732 
000003 



000010 

014777 
000001 



000004 

002322 

002466 



015035 
000005 



000014 



PRMSGEXP: : 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROl. 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$ j MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMP 
BGE 
BR 

50$: RTS 



116 
116 

116 



045 PRMSGO 
045 PRMSG1 
045 PRM5G2 



i ♦ 



R0,R5 

RCVLOADD, RO 

RO R4 

RCVHIADD, Rl 

RO 

Rl 

♦PRMSGO, R1.R4 

R4.-CSP) 

Rl.-CSP) 

♦PRMSGO.-CSP) 

♦3,-CSP) 

SP.RO 

CIPNTX 

♦10, SP 

♦PRMSG1 

♦PRMSG1, -CSP) 

♦1,-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

R4 

♦EXPMSG, Rl 

♦RECMSG, R2 

(Rl).RO 

(R2),R3 

R0.R3 

♦PRMSG2,R4,CR1 

R3,-CSP) 

(R2)».-(SP) 

(R1)»,-(SP) 

R4.-CSP) 

♦PRMSG2, -CSP) 

♦5, -CSP) 

SP,RO 

CIPNTX 

♦14, SP 

R4 

R4,R5 

50$ 

201 

PC 



I SAVE R1-R5 UNTIL NEXT RETURN 

j SAVE NUMBER OF WORDS 

j GET RECV LOW ADDRESS 

I COPY LOW ADDRESS 

I GET RECV HIGH ADDRESS 

i SHIFT BIT15 TO C BIT 

t SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 



I PRINT HEADER FOR CONTENTS 



iNLWBER OF THE CURRENT WORD 
jGET EXPO BUFFER ADDRESS 
jGET RECV BUFFER ADDRESS 
iGET EXPO 
jGET RECV 
I XOR EXPO/RECV 
)+,(R2)*,R3 



I NUMBER OF THE NEXT 
jPONE ALL YET? 
»BR IF YES 
I DO ANOTHER 
iRETURN 



.ASCIZ '*N*A nmuw&gm Buftmr Addr««» - *01*05' 

.ASCIZ '*N*A ti*w**g* Buffer Contents:' 

.ASCIZ '*N#A WORD ^D2KA EXPO: K06*A RECV: *06*A XOR: *06 

.EVEN 

.SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 



j ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 



L5 
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SEQ 0063 



1776 








1777 








1778 








1779 








1780 








1781 








1782 








1783 








1784 








1785 


015122 






1786 


015122 






1787 


015126 


010005 




1788 


015130 


005037 


002320 


1789 


015134 


005004 




1790 


015136 


012701 


002322 


1791 


015142 


012702 


002466 


1792 


015146 


111100 




1793 


015150 


042700 


177400 


1794 


015154 


110037 


015470 


1795 


015160 


111203 




1796 


015162 


042703 


177400 


1797 


015166 


110337 


015472 


1798 


015172 






1799 


015202 


122122 




1800 


015204 


001431 




1801 


015206 


005237 


002320 


1802 


015212 


023727 


002320 


1803 


015220 


101023 




1804 


015222 








015222 


010346 






015224 


013746 


015472 




015230 


013746 


015470 




015234 


010446 






015236 


012746 


015336 




015242 


012746 


000005 




015246 


010600 






015250 


104415 






015252 


062706 


000014 


1805 


015256 






1806 


015266 


000404 




1807 


015270 






1808 


015270 






1809 


015300 






1810 


015300 


005204 




1811 


015302 


020405 




1812 


015304 


002001 




1813 


015306 


000717 




1814 


015310 








015310 


013746 


002320 




015314 


012746 


015423 




C15320 


012746 


000002 




015324 


010600 






015326 


104415 






015330 


062706 


000006 


1815 


015334 


000207 




1816 








1817 


015336 


045 


lib 



ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 
RO - NUMBER OF BYTES IN BUFFER 
IMPLICIT INPUTS: 



000010 





EXPMSG 


- EXPECTED MESSAGE BUFFER 




RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP: j 








SAVREG 




SAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0.R5 


SAVE NUMBER OF BYTES 




CLR 


PRMNO 


INIT ERROR COUNT 




CLR 


R4 


NUMBER OF THE CURRENT BYTE 




MOV 


♦f.XPMSG.Rl 


GET EXPO BUFFER ADDRESS 




MOV 


*RECMSG,R2 


GET RECV BUFFER ADDRESS 


20$: 


MOVB 


(Rl).RO 


GET EXPO BYTE 




BIC 


*tC<377>,R0 


CLEAR UPPER BYTE 




MOVB 


RO, PRBEXP 


SAVE FOR ERROR REPORT 




MOVB 


(R2).R3 


GET RECV BYTE 




BIC 


*tC<377>,R3 


CLEAR L*-PER BYTE 




MOVB 


R3, PRBREC 


FOR ERROR REPORT 




XOR 


R0.R3 


XOP EXPD/RECV 




CMPB 


CR1)*,CR2)* 


EXPO - RECV? 




BEG) 


30$ 


BR IF YES 




INC 


PRMNO 


UPDATE ERROR COUNT 




CMP 


PRMN0,*8, 


PRINTED 8? 




BHI 


30$ 


BR LF YES 


27$: 


PRINTX 


♦PRBhSG ♦ R4 , PRBEXP , PRBREC . R3 




MOV 


R3,-(SP) 






MOV 


PRBREC, -CSP) 






MOV 


PRBEXP ,~CSP) 






MOV 


R4 , - C SP ) 






MOV 


♦PRBMSG, -(SP) 






MOV 


♦5,-CSPD 






MOV 


SP.RO 






TRAP 


C$PNTX 






ADO 


014 $ SP 






FORCEXIT 50$ 


sao 




3R 


35$ 


isao 


301: 










FORCF.RROR 27$,N0TSHR 


|S8D 


35$: 






lOSO 




INC 


R4 


j NUMBER OF THE NEXT 




CMP 


R4.R5 


iDONE AIL YET? 




BGE 


50$ 


iBR IF YES 




BR 


20$ 


iDO ANOTHER 


50$: 


PRINTX 


*PRB TOT. PRMNO 


tPRINT TOTAL ERROR COUNT 




MOV 


PRMNO, -CSP) 






MOV 


OVRBTOT, -(SP) 






MOV 


♦2, -CSP) 






MOV 


SP.RO 






TRAP 


C$PNTX 






ADD 


♦6.SP 






RTS 


PC 


iRETURN 



045 PRBMSG: .ASCIZ » *N*A BYTE 0KD2KA EXPD: *03*A RECV: *03*A XOR: *03 



M5 
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1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 

1835 
1836 



1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 

1851 

1852 



1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1663 
1864 
1865 
1866 
186/ 
1868 



015423 



0154 74 
0154 74 
015474 
015500 
015500 
015500 



045 



116 



045 



015470 000000 
015472 000000 



004737 007742 



104423 



015502 

015502 

015502 004737 007612 

015506 

015506 

015506 104423 



MAR-84 08;26 PAGE 16-16 
MESSAGE BUFFER 

PRBTOTj ,ASCIZ ' *N*A NUMBER OF BYTES IN ERROR - *D2 

.EVEN 

PRBEXP; .WORD ,EXPD 

PRBREC: .WORD jRECV 

.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
f 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 

INPUTS; 



SEQ 0064 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



EXPREC:: 



L10017: 



BGNMSG EXPREC 

JSR PC.PRIXOR 
ENDMSG 



jPRINT THE DATA 



TRAP CIMSG 

.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 



PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS: 



Rl 

R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



EXPBREC: 



L 10020; 



BGNMSG EXPBREC 

JSR PC.PRIBXOR 
ENDMSG 



{PRINT THE DATA 



TRAP 



CIM5G 



.SBTTL RAMERR - PRINT RAM AND PACKET DATM 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSI2-0 THEN DEFAULT TO 8. 



N 



5 
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RAMERR • PRINT RAM AND PACKET DATA 



1869 

:a?o 

1871 
1872 
1873 
1874 
1875 



1876 
1877 



1878 
1879 
1880 
1881 
1882 
1883 
1884 
1885 
1886 
1687 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1595 
1896 
1897 
1896 
1899 
1900 
1901 

1902 
1903 
1904 



1905 
1906 
1907 
1908 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 



015510 

015510 

015510 004737 013776 

015514 

015514 

015514 104423 



015516 

015516 

015516 004737 010274 

015522 004737 013776 

015526 

015526 

015526 104423 



015530 
015530 
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{IMPLICIT OUTPUTS: 

j RAMSIZ SET TO 



SEQ 0065 



i - 

RAMERR; 
L 10021: 



BGNMSG 

JSR 
ENDMSG 

TRAP 

.SBTTL. 



RAMERR 
PC.PRAMPKT 



jPRINT RAM/PACKET DATA 



CIMSG 

RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 



j PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMAND PACKET 
IMPLICIT INPUTS: 



J 



RAMOATA 
RAMSIZ 

ERRHI 
ERRLO 



DATA AS READ FROM THE RAM 

NUMBER OF BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 6. 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



BGNMSG 

RAMTADD: : 

JSR 
JSR 
ENDMSG 

L 10022: 

TRAP 

.SBTTL 



RAMTADD 

PC.PRITADD 
PC.PRAMPKT 



{PRINT TEST ADDRESS 
{PRINT RAM/PACKET DATA 



C$MSG 

RAMEXP 



- PRINT RAM EXPD/RECV DATA 



PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



RAMEXP; t 



BGNMSG RAMEXP 



B6 
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RAMEXP - PRINT RAM EXPO/RECV DATA 



SEQ 0066 



1919 
1920 
1921 
192? 
1923 



1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 

1938 



015530 
015534 
015540 
015544 
015550 
015550 
015550 



1939 
1940 



1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 

1958 

1959 

I960 



015552 
015552 
015552 
015552 
015556 
01«i562 
015564 
015566 
015572 
015576 
015576 
015576 

015600 



015700 
015700 
0157O0 
015702 
015706 
015706 
015710 
015714 

015720 



042701 
042702 
004737 
004/37 



104423 



012746 
012746 
010600 
104415 
062706 
004737 



104423 
045 



010246 
042702 

010246 
012746 
012746 
010600 



177400 
177400 
010066 
007742 



BIC 


♦tC<377>,Rl 


9IC 


♦*C<377>,R2 


JSR 


PC.PRIRAM 


JSR 


PC.PRIXOR 


ENOMSG 




L 100231 





j SAVE EXPD RAM OATA BYTE 

l SAVE EXPO RAM DATA BYTE 

jPRINT THE RAM ADDRESS 

jPRINT THE DATA 



TRAP 



CIMSCJ 



.SBTTL TIMEXP - PRINT TIMER A # B ANO EXP/RF.C 



PRINT ROUTINE TO DISPLAY EXPO/RECV DATA 
ANO TIMER A,B HEADER MESSAGE 



INPUTS: 



Rl 

R2 



RECEIVED DATA 
EXPECTED DATA 



TIMEXP} i 



BGNMSG TIMEXP 



015600 
000001 



000004 
007742 



L 10024: 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENOMSG 

TRAP 



♦TIMSGO 

♦TIMSGO. -CSP) 

•l.-CSP) 

SP.RO 

CtPNTX 

♦4.SP 

PC.PRIXOR 



jPRINT HEADER 



jPRINT THE DATA 



116 



045 



TIMSGO: .ASCIZ 
♦ EVEN 

.SBTTL 



CIMSG 

J #N#A TIMER A STATUS IS IN BIT 3#N#A TIMER B STATUS IS IN BIT £' 

BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS: 



177400 



015740 
000002 



i Rl 


CONTENTS Of TSSR 


i R2 


DATA WRITTEN (8 BITS) 


BGNMSG 


BADSSR 


BADSSR i: 




MOV 


R2.-CSP) 


bIC 


#177400. R2 


PRINTB 


♦XFERASCR2 


MOV 


R2, (SP) 


MOV 


♦XFERASC.-CSP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 



iSAVJi DATA TRANSFERRED 
iGET JUST ONE BYTE 
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BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



C( 



J 



SEQ 0067 



1961 
1962 
1963 



1964 
1965 
1966 
1967 
1968 
1969 
1970 
19a 
1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1962 
1983 
1984 
1985 
1966 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1996 
1999 
2000 
2001 
2002 
2003 
20O4 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 



015722 
015724 
015730 
015732 
015736 
015736 
015736 
015740 



015774 
0157/4 
016000 
016006 
016012 
016016 
016020 
016024 
016030 
016032 
016034 
016036 
016040 
016042 



104414 

062706 000006 

012602 

004737 006024 



104423 
045 



116 



L 10025: 
045 XFERASC: 



TRAP 

AOD 

MOV 

JSR 

ENOMSG 

TRAP 
.SBTTL 



CIPNTB 

♦6.SP 

(SP)*,R2 

PC.PRITSSR 



CIMSG 

.ASCIZ 

GLOBAL 



•*N*A 0«t a 
SUBROUTINES 



^RESTORE R2 
I DECODE TSSR 



Tr*n«f«rr«d ■ *03 
SECTION 



CONTENTS 



THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
THAT ARE USED IN MORE THAN ONE TEST. 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS} 



R5 



OUTPUTS: 



RO 

CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR, IF ERROR 
3ET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE: 



MOV 
JSR 
BCS 
FRRDF 



♦ADDRESS, R5 

PC, SOFINIT 
CONTINUE 



I REPORT FATAL ERROR 



SOFINIT: 



012765 
004737 
016500 
0)0004 
042704 
052704 
020400 
001402 
000241 
000401 
000261 
000207 



000000 
016250 
000002 

176277 
002200 



000002 



51; 
101 { 



SAVREG 

MOV 

JSR 

MOV 

MOV 

BIC 

BIS 

CMP 

BEQ 

CLC 

BR 

SEC 

RTS 

.SBTTL 



I SAVE THE REGISTERS 
♦O.TSSRCRS) i DO THE INIT. 
PC.WAITF | WAIT FOR SSR 
TSSR(R5),R0 iGET THE TSSR REGISTER 
R0.R4 ,TSSR CONTENTS 

♦tC<HIA00R!0FL>,R4 

•SSRJN8A.R4 |R4 MAS EXPECTED CONTENTS 
R4.R0 iONLY EXPECTED BITS SET ? 

51 jBRANCH IF OKAY 

} CLEAR THE CARRY FOR ER30R 
101 iGO TO EXIT 

iSET THE CARRY BIT 
PC i RE TURN TO CALLER 

CHKAMB - CHECK TSSR FOR AMBIGUITY 



D6 
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CHKAM6 

2014 

2015 
2016 
2017 

2018 
2019 
2020 
2021 
2022 
2023 
202A 

2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 

2068 

2069 
2070 



CHECK TSSR FOR AMBIGUITY 



SEQ 0068 



016044 
016044 
016050 
016052 
016056 
016060 
016064 
016066 
016070 
016074 
016076 
016102 
016104 
016110 
016114 
016116 
016120 
016124 
016126 
016152 
016134 
016136 
016140 
016142 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001002 
000241 
000401 
000261 
000207 



016144 



000200 
000001 



000 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUTS 



OUTPUT; 



RO 

RO 
'JARRY 



CONTENTS OF TSSR 



CONTENTS OF TSSR 

SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



CHKAMB: 



100000 
174077 

000200 

000040 

177761 
000016 

000040 
000006 



51 



10$ 



SAVREG 

MOV 

BIT 

BNE 

BIT 

BNE 

BR 

BIT 

BNE 

BIT 

BEQ 

BIC 

CMP 

BNE 

BR 

BIT 

BEQ 

BIT 

BNE 

CLC 

BR 

SEC 

RTS 

.SBTTL 



R0.R4 

*SC,RO 

5$ 

♦tC<NBA!OFUSSR 

40$ 

45$ 

♦SSR,R0 

10$ 

«6IT5,R0 

40$ 

♦tCTERCLS,R4 

R4,*16 

40$ 

45$ 

*BIT5,R0 

45$ 

♦6IT256IT1.R0 

45$ 

50$ 

PC 
ENAINT.DSBINT - 



SAVE THE GENERAL REGISTERS 
CONTENTS Of TSSR 
IS BIT 15 SET ? 
BRANCH IF YES 
•HIAD0R>.R0 | ANY OTHEP BITS SET ? 
MUST BE AN ERRC* 
RETURN WITH SUCCF';S 
IS REAOY BIT SET ■< 
BRANCH IF READY Bit IS SET, 
IS FATAL ERROR HIT SET ? 
E3R0R IF NOT 

CLEAR ALL BUT 'ftRMINATION CODE 
ALL THREE BITS MUST BE SET 
ERROR IF NOT SET 
OK IF ALL ARE SET 
IS FATAL ERROR BIT SET ? 
ERROR IF BIT IS SET WITH SSR 
IS THIS A FUNCTION REJECT 
BR. IF TSSR IS OK 
AMBIGUOUS CONTENTS 

SHOW SUCCESS - NC AMBIGUITY 
RETURN TO CALLER 
ENABLE/DISABLE INTERRUPTS 



40$: 

45$s 
50$: 

i 

I DCFAU.T DISPLAY INTERRUPT HANDLERS. 

j IF DISPLAY TIME-OUT, REPORT DEV FATAL, ANO ABORT PASS. 

i OTHERWISE, SAVE DPU REGISTERS ANO DISMISS. 

I 

I BIT DEFINITIONS FOR "INTMASK" ANO "INTFLAG" BYTES: 



I0KCKIN-BIT7 
IOKSTP-BITO 



j DON' T CHECK FOR BAD INTERRUPTS 
: EXPECT "STOP" INTERRUPT. 



TEST WILL. 



I 

j INTERRUPT MASK - • SAYS EXPECTING INTERRUPTS 

INTMASKi .BYTE 
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ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 



E6 



SEQ 0069 



2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2080 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
20^ 
2093 
2094 
2095 

2096 
2097 
2098 
2099 
2100 
2101 
2102 
2103 
2104 



2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 

2121 
2122 
2123 



016145 

016146 
016150 



016152 
016154 
016160 
016164 
016170 
016172 
016174 
016202 



016204 
016206 

016214 



016216 
016216 
016216 
016224 
016230 
016236 
016240 



016246 

016246 
016246 
016246 



016?S0 
0162V 
01625i 
016254 

016260 
016264 



000 

000000 
000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 



011646 
012766 
000002 



012737 
105037 
132737 
001003 
152737 



000002 



000401 

104422 

012746 
016500 
105700 



002210 
016216 
000300 



000000 000002 



000300 000002 



000001 002224 

016145 

000001 016144 

000001 016145 



0110O0 
000002 



i INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 
INTFLAG: .BYTE 

j SAVED INTERRUPT VECTOR i 
INTVEC: .WORD 
I SAVE CPU PC 
INTCPC? .WORD 



i SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-(SP) »SAVE RO 

IVEC.RO 

*INTR,CRO)» 

♦PRI06.CRO)* 

(SP)t.RO 

(SP),-(SP) 

<K),2(SP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



iGET POINTER TO VECTORS 
tSET UP INTERRUPT VECTOR 



jRESTORE RO 

I SET CPU TO LEVEL 



i SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 6) 



DSBINT: MOV 
MOV 



INTR: 



RTI 
.SBTTL 

BGNSRV 

MOV 

CLRB 

BITS 

BNE 

BISB 



(SP).-(SP) 
♦PRI06.2CSP) 

INTR - INTERRUPT HANOLERS 

INTR | DEFINE INTERRUPT ENTRY 

♦l.INTRECV i SET FLAG TO SHOW INTERRUPT RECEIVED 

INTFLAG i CLEAR FLAG TO SAY WE GOT INTERRUPT 

•IOKSTP.INTMASK |EXPECTING STOP INTERRUPT? 

It jBR IF YES 

tlOKSTP. INTFLAG |N0. SET THE ERROR FLAG. 



jSAVE REGISTERS, MSG BUFFER, ETC, 
It: 

ENOSRV 
L 10026: 

RTI 

.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 

SUBROUTINE 10 WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 
OUTPUTS: 



RO 
CARRY 



WAITF: • BR 

BREAK 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



Itj 

21; 



TRAP 
MOV 
MOV 
TSTB 



II 

CIBRK 

011000, -CSP) 

TSSR(R5),R0 

RO 



jNOP WHEN SUPER FIXED 

1 DO A SUPVSR BREAK FIRST. 

125-APRIL-83 REV B - 1100 MSEC TIMER 
iREAD THE TSSR REGISTER 
jTEST FOR REAOY BIT SET 



F6 
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SEQ 0070 



2124 








2125 


016266 


100420 




2126 


016270 








016270 


012727 


000001 




016274 


000000 






016276 


013727 


002116 




016302 


000000 






016304 


005367 


177772 




016310 


001375 






016312 


005367 


177756 




016316 


001367 




2127 


016320 


005316 




2128 


016322 


001356 




2129 


016324 


000241 




2130 


016326 


000401 




2131 


016330 


000261 




2132 


016332 


005326 




2133 


016334 


000207 




2134 








2135 








2136 








2137 








2138 








2139 








2140 








2141 








2142 








2143 








2144 








2145 








2146 








2147 








2148 








2149 








2150 








2151 








2152 








2153 


016336 






2154 


016336 


004 737 


016250 


2155 


016342 


103014 




2156 


016344 


004737 


016044 


2157 


016350 


103006 




2156 


016352 


032700 


100000 


2159 


016356 


001405 




2160 


016360 


032700 


.074000 


2161 


016364 


001402 




2162 


016366 


000241 




2163 


016370 


000401 




2164 


016372 


000261 




2165 


016374 


000207 




2166 








2167 








2168 








2169 








2170 








2171 








^V2 











BMI 


3$ 




DELAY 


1 




MOV 


♦ 1,(PC)* 




.WORD 







MOV 


LIDLY.CPOt 




.WORD 







DEC 


-6CPC) 




BNE 


»-4 




DEC 


-22CPC) 




BNE 


. -20 




DEC 


(SP) 




BNE 


2$ 




CLC 






BR 


At 


3*2 


SEC 




4$; 


DEC 


(SP)* 




RTS 


PC 



j EXIT ON STOP FLAG. 
I WAIT 100 USEC 



» REDUCE DELAY COUNT 

jRETRY UNTIL TIMER EXPIRES 

i C • 0. CONTROLLER STILL RUNNING,,. 

I... OR HUNG-UP AFTER 300 MSEC. 

I C ■ 1, CONTROLLER IS STOPPED. 

j RESTORE STACK WITHOUT CHANGING CARRY BIT 



.SBTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR, 



INPUT: 



R5 ADDRESS OF CSR REGISTERS 



OUTPUT: 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



CHKTSSR 


• 








JSR 




PC, WAITF ,WAIT FOR READY 




BCC 




201 t BRANCH IF TIME OUT 




JSR 




PC.CHKAM8 jTSSR AMBIGOUS? 




BCC 




101 »BR IF YES 




BIT 




♦SC.RO i SPECIAL CONOITION SET? 




BEQ 




15$ »BR IF NO 




BIT 




*<SCE!BIE!RMR!NXM>,RO iANY ERROR BITS SET? 




BEQ 




15$ |BR IF NO 


10$: 


CLC 




iSET FAILURE 




BR 




20$ j 


15*: 


SEC 




i SET SUCCESS 


20$: 


RTS 




PC iRETURN TO CALLER 




.SBTTL 


XNXM - CHECK FOR NONEXISTENT MEMORY 


l ROUTINE TO 


TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2). 


j ON RETURN. 


IF 


"C" • 1. (Rl) • NEXM ADDRESS, 


J 






"C" - 0, ALL ADDRESSES OK, 


t CALL j 


MOV 


ADR1.R1 



G6 
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XNXM - CHECK FOR NONEXISTENT MEMORY 

l 



SEQ 0071 



2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 



2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 



016376 
016404 
016412 
016414 

016416 
016420 
016422 
016426 

016430 
016432 
016436 
016440 
016440 
016444 
016446 
016450 
016452 
016454 



016456 
016456 
016462 
016464 
016470 
016472 
016476 
016500 
016502 
016504 
016506 



012737 016430 000004 
012737 000200 000006 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 016440 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



005737 002170 

001006 

005737 002204 

100403 

005337 002216 

001002 

000241 

000401 

000261 

000207 



i 
i 
\ 
XNXM 



1$: 



2*i 



3$: 



MOV 


ADR2.R2 


JSR 


PC, 


NXM 


RETURN 


|T 


MOV 




*2$>S*4 


MOV 




*PRI04,Q*6 


CLR 




R3 


TST 




(Rl) 


CMP 




R1.R2 


BEQ 




3$ 


ADD 




02, Rl 


BR 




11 


COM 




R3 


MOV 




03$, (SP) 


RTI 






CLRVEC 


•4 


MOV 




04, RO 


TRAP 




C*CVEC 


TST 




R3 


BEQ 




.♦4 


SEC 






RT5 




PC 



I TEST «C" AND PROCEED 



» SET BUSERR VECTOR. 

»FLAG. 

j TEST THE ADDRESS(ES). 

t IF ANY TRAP, CONTINUE AT 2% 

j OTHERWISE, CONTINUE HERE. 

jBR IF FINISHED (NO NEXM'S). 

j SET NEXT ADDRESS... 

I... AND CONTINUE. 

» GOT ONE, SET FLAG. . . 

; . . . ANO DISMISS INTERRUPT. . . 
I... AND GIVE BACK THE VECTOR 



iDID WE CATCH ONE ?? 

jNO, "C" - 0, SKIP NEXT. 

j YES, "C" - 1, (Rl) » NEXM ADDR 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO. 

LOOP COLNTER IS SET BY "BEGIN, TEST '* MACRO. 



l ITERATIONS INHIBITED? 

i YES. 

i NO. 

j LOOPS DISALLOWED IN QUICK PASS. 

{ BUMP LOOP COUNTER. 

I LOOP DISALLOWED, OR DONE. 

,L0OP ENABLED. 



.SBTTL TSTSETUP - PRINT TEST NAME ANO INIT ERROR COUNTS 

PRINT THE NUMBER AND NAME Of EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INOICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER ANO SIGNATURE EXTENSION FLAGS, 



j CALL: LOOPTO 


ARG 


TSTLOOP: : 




TST 


NOITS 


BNE 


U 


TST 


QVP 


BMI 


11 


DEC 


LOOPCNT 


BNE 


21 


11: CLC 




BR 


3$ 


21: SEC 




3t: RTS 


PC 



INPUT: 



RO 



POINTER TO TES; ID ASCIZ STRING 



H6 
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SEQ 0072 



2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 



2256 
2257 
2258 



2259 

2260 



2261 

2262 
2263 
2264 

2265 
2266 
2267 
226d 



0.16510 
016510 
016512 
016516 
016522 
016526 
016532 
016536 
016540 
016544 
016546 
016550 
016556 
016556 
016560 
016562 
016564 
016566 
016570 
016576 
016576 
016600 
016602 
016604 
016606 
016614 
016614 
016620 
016622 
016622 
016624 

016626 
016626 
016630 
016634 
016636 
016640 
016640 
016642 
016646 
016652 



010046 
005037 
005037 
005037 
105037 
013700 
006300 
005737 
0014^0 
100010 
052760 

104455 
000001 
003740 
005736 
000407 
052760 

104455 
000002 
004335 
000000 
012737 

013700 
104451 

104444 

000423 



104421 
032700 
001412 
011600 

010046 

012746 
012746 
010600 



OUTPUT? 

R5 ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS? 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS! 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



003154 
016756 
005772 
016144 
002202 

003114 



160000 003176 



TSTSETUP:; 
MOV 



160001 003176 3$ 



177777 003112 
002202 



21 



4$} 



001000 



016704 
000002 



CLR 

CLR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEQ 

BPL 

BIS 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERROF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

BR 

RFLAGS 

TRAP 

BIT 

BEQ 

MOV 

PRINTF 

MOV 

MOV 

MOV 

MOV 



RO,-(SP) 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN.RO 

RO 

NODEV 

41 

31 

0160000 .ERTABLC 

l.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 

2f 

♦160001 .ERTABLC 

2.N0INIT 

CIERDF 

2 

NOINIT 



♦-1.0UFLG 

UNITN 

UNITN.RO 

CI DODU 

CIDCLN 
5$ 

RO 

CIRFLA 

*PNT,RO 

it 

(SP).RO 

♦TNAM.RO 

RO.-CSP) 

OTNAM, -CSP) 

#2,-(SP) 

SP.RO 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ERROR) 
GET THE UNIT NUMBER, 
... ANO MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) j FLAG ERROR IN THE ERROR TABLE 
I NO DEVICE HERE -- PRINT IT 



RO) j FLAG ERROR IN THE ERROR TABLE 
I DEVICE NOT IDLE 



j DROP THE UNIT 



t ABORT THE PASS 



l GET THE OPERATOR FLAGS. 

j PRINT THE TEST NUMBERS? 

{ BR IF NO 

j GET THE ID MESSAGE 

jDISPLAY THE TEST ID 
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16 



SEQ 0073 



2269 
2270 



2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 

2282 
2283 
2284 



016654 
016656 
016662 
016666 
016666 
016672 
016674 
016676 
016702 
016704 



2285 
2286 
2287 
2288 
2289 
2290 
2291 

2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 



016720 
016720 
016722 
016726 
016730 
016730 
016734 
016740 
016744 
016746 
016750 
016754 

016756 
016760 
016777 



017044 
017050 
017052 
017056 
017060 
017064 
017066 
017072 
017074 
017076 
017100 

017102 
017104 
017110 
017112 
017116 
017122 
017126 



104417 

062706 000006 

005237 002214 

013700 002212 

104441 

005726 

013705 002206 

000207 

045 123 



104421 
030027 
001412 

013746 
012746 
0.12746 
010600 
104417 
062706 
000207 

OOOOOO 
045 
105 



005237 
010046 
013700 
006300 
062700 
005210 
032710 
001001 
005310 
012600 
000207 

010046 
013700 
006300 
016000 
042700 
020037 
103004 



lti 

5$: 
045 TNAMi 

i 



020000 



016756 
016760 
000002 



000006 



101 
122 



016756 
002202 
003176 
007777 



002202 

003176 
170000 
002174 



TRAP 

ADD 

INC 

SETPRI 

MOV 

TRAP 

TST 

MOV 

RTS 

.ASCIZ 

.EVEN 

.SBTTL 



CIPNTF 

*6,SP 

TSTCNT 

IPRI 

IPRI.RO 

CtSPRI 

CSP)* 

CSRADDR.R5 

PC 

'tfStfTtfA T««t 



I BUMF TEST COUNTER. 
jPRIORITY THAT OF DEVICE 



I FIX UP THE STACK 

I ADDRESS OF TSV REGISTERS ON UNIBUS 



TSTENO - PRINT ERRORS RECEIVED 



; AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
i IF NORMAL ERROR REPORTING IS DISABLED (FLAjIER). 



i BR IF "IER" NOT SET 
I PRINT ERROR COUNT. 



TSTENO: 


RFLAGS 


RO 




TRAP 


CtRFLA 




BIT 


RO.OIER 




BEQ 


It 




PRINTF 


#€SUM,ERRK 




MOV 


ERRK, (SP) 




MOV 


0£SUM,~(SP) 




MOV 


02, -(SP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


06, SP 


It: 


RTS 


PC 



EPRKj 
040 ESUM: .ASCIZ 
122 EMAXDU: .ASCIZ 
♦ EVEN 



i LOCAL ERROR COUNT, 
/#A tfDitfA ERRORS/ 
/ERROR LIMIT REACHED -- DROPPING UNIT/ 



.SBTTL INCERK - INCREMENT LOCAL ERROR COUNT 

I * 

j ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... AND MAKE IT A WORD OFFSET. 

RO GETS ADDRESS OF ERROR TABLE ENTRY. 

INCREMENT THE DEVICE ERROR COUNT 

DID WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -■ BACK IT UP TO 7777. 

RESTORE RO 

RETURN TO CALLER. 

SAVE RO 

GET UNIT NUMBER 

... AND MAKE IT A WORD OFFSET 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 



INCERK: 


INC 


ERRK , 




MOV 


RO,-(SP) i 




MOV 


UNITN,RO i 




ASL 


RO i 




ADD 


OERTABL.RO i 




INC 


(RO) i 




BIT 


07777, (RO) i 




BNE 


It j 




DEC 


(RO) , 


1$: 


MOV 


(SP)f,RO j 




RTS 


PC i 


CKEMAX: 


MOV 


RO,-(SP> i 




MOV 


UNITN.RO i 




ASL 


RO j 




MOV 


ERTABL(RO),RO » 




BIC 


*1 70000, RO i 




CMP 


RO.GERRMAX j 




BHIS 


U t 
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1NCERK - INCREMENT LOCAL ERROR COUNT 



SEQ 0074 



2315 
2316 
2317 

2318 
2319 
2320 
2321 



2322 



2323 

2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 

2333 
2334 
2335 
2336 
2337 



2338 

2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
2346 
2349 
2350 
2351 
2352 
2353 
2354 
2355 
2356 
2357 
2558 
2359 



017130 
017136 
017140 
017140 
017142 
017146 
017150 
017156 
017156 
017160 
017162 
017164 
017166 
017166 
01/172 
017174 
017174 
017176 
017200 



017202 
017204 
017214 
017214 
017216 
017222 
017224 
017226 
017234 
017234 
017240 
017242 
017242 
017244 

017246 



017250 
017250 
017254 



017256 

017262 
017264 
017272 



023737 
103417 

104421 
032700 
001013 
012737 

104455 
000004 
016777 
000000 

013700 
104451 

104444 
012600 
000207 



010046 



104421 
032700 
001010 
011600 
012737 

013700 
104451 

104444 
012600 
000207 



004737 
000207 



005757 
001403 
012737 
000207 



016756 002172 

000040 

177777 003112 



1$ 



002202 



2$ 



CMP 

BLO 

RFLAGS 

TRAP 

BIT 

BNE 

MOV 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

DODU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 

.SBTTL 



ERRK.LERRMAX 

2$ 

RO 

CIRFLA 

4IDU.R0 

21 

•-1.DUFLG 

4.EMAX0U 
CiERDF 
4 

EMAXOU 


UNITN 
UNITN, RO 
CI DODU 



» IS LOCAL LIMIT EXCEEDED FOR THIS TEST? 

t BR IF NO 

j GET OPERATOR FLAGS 

j IS DROPPING INHIBITED? 
I BR IF YES. 

I NO - DROP THE UNIT 



CtDCLN 
CSP)*,RO 
PC 
CKDROP 



i 



RESTORE RO 
j RETURN TO CALLER 
- CHECK IF UNIT SHOULD BE DROPPED 



000040 

177777 003112 
002202 



} CHECK IF UNIT SHOULD BE DROPPED 

CKDROP: MOV RO, -CSP) 

FORCERROR 1*,N0TSSR 

RFLAGS RO 

CIRFLA 

*IDU,RO 

1* 

(SP).RO 

•-1.DUFLG 

UNITN 

UNITN, RO 

CIDODU 



1$ 



TRAP 

BIT 

BNE 

MOV 

MOV 

DOOU 

MOV 

TRAP 

DOCLN 

TRAP 

MOV 

RTS 



CIDCLN 

(SP)»,RO 

PC 



I ABORT THE PASS 



.SBTTL CONFIG 



DETERMINE CONFIGURATION OF SYSTEM 



j SUBROUTINE - DETERMINE CONFIGURATION OF TSV05 SYSTEM. 



015774 



CONFIG: 



JSR PC.SOFINIT 

RTS PC 

.SBTTL i< TON, K TOFT 



j SUBROUTINE - ENABLE MEM MGT, 



003132 

000001 177572 



KTON: 

It: 

J 



TST 
HEQ 

MOV 

Rtr* 



KTFLG 
1* 

01,SR0 
PC 



- ENABLE/DISABLE MEMORY MANAGEMENT 



» GOT KT? 

I NO. 

I YES. ENABLE KT11. 



I<6 
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SEQ 0075 



2360 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2370 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
24U 
2412 
2413 
2414 
2415 
2416 



017274 
017300 
017302 
017304 
017306 
0i7314 



017316 
017316 
017322 
017326 
017330 



017362 
017366 
017372 
017374 
017400 
017404 
017410 
017412 
017414 
017416 
017420 



005737 003132 

001405 

000240 

000240 

012737 000000 177572 

000207 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



003132 



000177 
003132 

172354 
160000 
140000 



i SUBROUTINE - DISABLE MEM MGT , 
KTOFF: 



1*5 



I ♦ 



TST 


KTFLG 




j GOT KT11? 


BEQ 


1$ 




j NO. 


NOP 








NOP 








MOV 


00 ♦ SRO 




1 DISABLE KT 


RTS 


PC 






.SBTTL 


SETMAP 


- SETUP 


PAR6 MAPPING 



j THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
{AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
j IS RETURNED BIASED TO PAR6. 



s INPUTS: 



RO 
Rl 



t OUTPUTS: 



SETMAP: 



101 
15$ 

\ ♦ 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENOR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 

.SBTTL 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 



KTFLG 
10$ 
R1.R2 
6 

RO 
Rl 

0177, Rl 
Rl, KTFLG 
10$ 

R1,S0KIPAR6 
♦160000, R2 
0140000, R2 
R2.R0 

15$ 

PC 



j SAVE R1-R4 UNTIL NEXT RETURN 

1 SYSTEM HAVE ABOVE 28K? 

} BR IF NO 

I SAVE LOW ORDER BITS 

j CONVERT WORD ADDRESS TO 32W BLOCKS 
jMAKE IT DOUBLE PRECISION 

j ALINE FOR LOWER 4K BOUNOARY 
j HIGHER THAN EXISTING MEMORY? 
I BR IF YES 

l SETUP MAPPING REGISTER PAR6 
i SETUP DISPLACEMENT IN PAGE 
j ADD IN PAR6 BIAS 
iRETURN IN RO 
j SET SUCCESS 

I SET FAILURE 
jRETURN 



FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 



FILL MEMORY WITH A BACKGROUND PmTTERN 



I INPUTS: 



RO • BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG • SET TO HIGHEST MEMORY LOCATION IF > 28K 



L6 
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SEQ 0076 



2417 








1 OUTPUTS; 






2418 








* 








2419 








I 


NONE 






2420 








j - 








2421 








» 








2422 


017422 






FILLMEM 


• 
» 






2423 


017422 








SAVREG 




SAVE R1-R5 UNTIL NEXT RETURN 


2424 


017426 


004737 


017274 




JSR 


PC.KTOFF , 


DISABLE KT. 


2425 


017432 


010003 






MOV 


R0.R3 


COPY TEST PATTERN 


2426 


017434 


013701 


003124 




MOV 


FREE.R1 


GET FIRST FREE LOCATION 


2427 


017440 


013702 


003126 




MOV 


FRESIZ.R2 j 


SIZE OF FREE SPACE BELOW 28K . 


2428 


017444 


010321 




10$: 


MOV 


R3.CR1)* 


STORE A BACKGROUND WORD 


2429 


017446 


005302 






DEC 


R2 


DONE ALL MEMORY IN FREE SPACE? 


2430 


017450 


0033 V5 






BGT 


10$ j 


BR IF NO 


2431 


017452 


005737 


003132 




TST 


KTFLG 


GOT KT? 


2432 


017456 


001477 






BEQ 


55$ 


NO. GET OUT. 


2433 


017460 


004737 


017256 




JSR 


PC.KTON i 


YES. ENABLE KT. 


2434 


017464 


005000 






CLR 


RO 


HIGH ORDER ADDRESS START 


2435 


017466 


013701 


003152 




MOV 


PST32W,R1 


GET >28K START ADDRESS (IN 32W BLO 


2436 




000006 






.REPT 


6 




2437 










CLC 




CLEAR C BIT 


2438 










ROL 


Rl 


CONVERT BLOCKS TO UORDS 


2439 










ROL 


RO 


MAKE IT DOUBLE PRECISION 


2440 










.ENOR 






2441 


017536 


004757 


017316 




JSR 


PC.SETMAP 


SETUP PAR6 MAPPING REGISTER 


2442 


017542 


010320 




30$ j 


MOV 


R3.CR0)* 


STORE TEST PATTERN IN >28K ADDRESS 


2443 


017544 


020027 


160000 




CMP 


RO, $160000 


END OF PAR6 MAPPING AREA? 


2444 


017550 


103774 






BLO 


30$ 


BR IF NO 


2445 


017552 


162700 


020000 




SUB 


020000.RO 


BACKUP INTO PAR6 MAPPING BEGIN 


2446 


017556 


062737 


0OO200 


172354 


ADD 


0200,SOKIPAR6 


POINT TO NEXT 4K BLOCK >28K. 


2447 


017564 


023737 


172354 


003132 


CMP 


S0KIPAR6, KTFLG 


END OF MEMORY? 


2448 


017572 


001427 






BEQ 


50$ 


BR IF YES 


2449 


017574 


005737 


003144 




TST 


T23A 


11/P3A? 


2450 


017600 


001407 






BEQ 


35$ 


NO KEEP GOING 


2451 


017602 


013704 


177572 




MOV 


SR0.R4 


GET SRO CONTENTS 


2452 


017606 


042704 


177761 




BIC 


0177761, R4 


CLEAR ALL BUT PAGE NUMBER 


2453 


017612 


022704 


000016 




CMP 


016 ,R4 


SEE IF PAGE 7 


2454 


017616 


001415 






BEQ 


50$ 


EXIT IF THERE 


2455 


017620 


005737 


003146 


35$ j 


TST 


T23B 


11/23B? 


2456 


017624 


001410 






BEQ 


45$ 


NO KEEP GOING 


2457 


017626 


023727 


172354 


007600 


CMP 


SOK IP AR6, 07600 


(REACHED 18 BITS? 


2458 


017634 


103001 






BHIS 


40$ 


j YES 


2459 


017636 


000403 






BR 


45$ 


NO KEEP GOING 


2460 


017640 


012737 


000020 


172516 40$; 


MOV 


020, SR3 


iSET 22 BIT RELOCATION 


2461 


017646 


000137 


017542 


45$: 


JMP 


30$ 


i KEEP GOING ON ETC. 


2462 


017652 


004737 


017274 


50$: 


JSR 


PC.KTOFF 


1 DISABLE KT. 


2463 


017656 


000207 




55$: 


RTS 


PC 




2464 










.SBTTL 


CMPMEM - COMPARE 


i MEMORY TO BACKGROUND PATTERN 


2465 








i * 








2466 








j COMPARE MEMORY WITH A BACKGRCUT 


*D PATTERN 


2467 
















2468 








j INPUTS: 






2469 
















2470 










MO - BACKGROUND PAT1ERN 




24 71 










FREE 


- FIRST LOCATION 


AVAILABLE TO DIAGNOSTIC 


2472 










KTFLG 


■ SET TO HIGHEST 


MEMORY LOCATION IF > 28K , 


24 73 

















M6 
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SEQ 0077 



24 74 








} OUTPUTS : 




2475 












24 76 








; CARRY 


- SET IF NO ERROR 


24 7 7 








j CARRY 


- CLR IF ERROR 


2478 












24/9 








{ IMPLICIT OUTPUTS: 


2480 












2481 








j ERRHI 


- ERROR HIGH ADDR 


24' 2 








j ERRLO 


- ERROR LOW ADDRE 


2483 








; EXPO 


- EXPECTED DATA 


2484 








; RECV 


- RECEIVED DATA 


2485 








j - 




2486 


017660 






CMPMEM: 




2487 


017660 






SAVREG 




2488 


017664 


010003 




MOV 


R0.R3 i 


2489 


017666 


004737 


017274 


JSR 


PC.KTOFF , 


2490 


017672 


013701 


003124 


MOV 


FREE.R1 j 


2491 


017676 


013702 


003126 


MOV 


FPESIZ.R2 { 


2492 


017"'02 


020311 




10$: CMP 


F.3.CR1) , 


2493 


0177> 


001411 




BEQ 


15$ j 


2494 


017706 


010137 


002240 


MOV 


R1,ERRL0 , 


2495 


017712 


005037 


002236 


CLR 


ERRHI » 


2496 


017716 


010337 


002232 


MOV 


R3.EXPD } 


2497 


017722 


011137 


002234 


MOV 


(Rl).RECV t 


2498 


017726 


000474 




BR 


50$ , 


2499 


017730 


005721 




15$: TS T 


CRD* i 


2500 


017732 


005302 




DFX 


R2 i 


2501 


017734 


003362 




BGT 


10$ j 


2502 


017736 


005737 


003132 


TST 


KTFIG j 


2503 


017742 


001472 




BEQ 


55$ j 


2504 


017744 


004 737 


017256 


JSR 


PC.KTON j 


2505 


017750 


005000 




CLR 


RO , 


2506 


017752 


013701 


003152 


MOV 


PST32W.R1 S 


2507 




000006 




.REPT 


6 


2508 








ROL 


Rl I 


2509 








ROL 


RO i 


2510 








.ENOR 




2511 


020006 


042701 


000177 


DIC 


♦177, Rl , 


2512 


020012 


010046 




MOV 


RO.-(SP) j 


2513 


020014 


010146 




MOV 


Rl.-(SP) i 


2514 


020016 


004737 


017316 


JSR 


PC.SETMAP j 


2515 


020022 


010004 




MOV 


R0.R4 , 


2516 


020024 


012001 




MOV 


CSP)*,R1 t 


2517 


020026 


012600 




MOV 


(SP)*,RO j 


2518 


020030 


020314 




30$: CMP 


R3.CR4) , 


2519 


020032 


0014U 




BEQ 


32$ i 


2520 


020054 


010037 


002236 


MOV 


RO, ERRHI , 


2521 


020040 


010137 


002240 


MOV 


Rl, ERRLO j 


2522 


020044 


010337 


002232 


MOV 


R3.EXPD i 


2523 


020050 


011437 


002234 


MOV 


(R4),RECV i 


2524 


020054 


000421 




BR 


50$ , 


2525 


020056 


062/01 


000002 


32$: ADD 


*2,R1 j 


2526 


020062 


005500 




ADC 


RO i 


252/ 


020064 


062704 


000002 


ADD 


02, R4 , 


2528 


020070 


020427 


160000 


CMP 


R4, 0160000 \ 


2529 


0200/4 


103755 




BLO 


30$ , 


2!S3G 


020076 


162/04 


020000 


SUB 


020000 ,R4 j 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 26K . 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES, ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO WQHDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNOARY 

SAVE HIGH ORDER 

SAVE LOW ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOU ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAi. EXPD? 

SAVE HIGH ORDER IN ERROR 
SAVE LOU ORDEK IN ERROR 
SAVE EXPD FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 

UPDATE NON PAR6 ADDRESS 

MAKE IT DOUBLE PRECISION ADD 

UPDATE PAR FORMAT ADDRESS 

END OF PAR6 MAPPING AR^A? 

BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 



N6 
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SEQ 0078 



2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

254 3 

2544 

2545 

2546 

2547 

2548 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

25/3 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 



020102 
020110 
020116 
020120 
020124 
020126 
020130 
020134 
020136 



020140 
020140 
020142 
020144 
020146 
020150 
020152 
020156 
020160 
020162 
020164 
020166 
020170 
020172 



062737 
023737 
101744 
004737 
000241 
000403 
004 737 
000261 
000207 



000200 
172354 

017274 



017274 



172354 
003132 





ADD 


02OO.30KIPAR6 




CMP 


S0KIPAR6.KTFLG 




BL05 


30$ 


50$: 


JSR 
CLC 


PC.KTOFF 




BR 


60$ 


55$: 


JSR 
SEC 


PC.KTOFF* 


60*: 


RTS 


PC 



I POINT T(- NEXT 4K BLOCK >28l< 

j END Of" ncMORY? 

I BR IF NO 

j TURN OFT 1EM0RY MAPPING 

j SET FAILURE 

j TURN OFF MEMORY MAPPING 
I SET SUCCESS 



.SBTTL REGSAV - SAVE R1-R5 ON STACK 



ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 



CALLING SEQUENCE: 



JSR 



R5, REGSAV 



THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS, 

THIS RQUTii-iE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



010446 

010346 

010246 

010146 

010546 

016605 00001? 

004736 

012601 

012602 

012603 

012604 

012605 

000207 



REGSAV: 




MOV 


R4 , - C SP ) 


MOV 


R3.-CSP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R5.-CSP) 


MOV 


10.CSP),R5 


JSR 


PC.S(SP)* 


MOV 


CSP)».R1 


MOV 


(SP)*,R2 


MOV 


(SP)*,R3 


MOV 


CSP)»,R4 


MOV 


(SP)*,R5 


RTJ 


PC 


.SBTTL 


GETPAT - GET 



8 BIT PATTERN FROM OPERATOR 

♦ 

ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
{CALLING SEQUENCE: 



B7 
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SEG 0079 



2588 






2589 






2590 






2591 






2592 






2593 


020174 




2594 


020174 




2595 


020200 






020200 


104443 




020202 


000406 




020204 


020230 




020206 


000022 




020210 


020232 




020212 


000377 




020214 


000000 




020216 


000377 




020220 




2596 


020220 






020220 


103367 


2597 


020222 


013700 020230 


2598 


020226 


000207 


2599 






2600 






2601 






2602 






2603 






2604 


020230 


000000 


2605 


020232 


105 116 


2606 






2607 






2608 






2609 






2610 






2611 






2612 






2613 






2614 






2615 






2616 






2617 






2616 






2619 






2620 






2621 






2622 






2623 






2624 


020256 




2625 


020256 




2626 


020262 


010002 


2627 


020264 


010203 


2628 


020266 


005713 


2629 


0202 70 


001412 


2630 020272 






020272 


012346 




0202 M 


012746 02044? 




020300 


012 746 000002 




020304 


010600 



JSR PC. GETPAT 



GETPAT i t 
lit 



10000$ t 



SAVREG i SAVE THE GENERAL REGISTERS 

GMANID DAT ASC , PATOAT , 0,377,0,377, NO 

TRAP CIGMAN 

BR 10000$ 

.WORD PATOAT 

.WCKD T$C00E 

.WORD DAT ASC 

.WORD 377 

.WORD TILOLIM 

.WORD TIHILIM 



BNCOMPLETE 1$ 
BCC 1$ 

MOV PATOAT, RO 
RTS PC 



, RETRY IF ERROR 

I DATA PATTERN FROM OPERATOR 
iRETURN TO CALLER 



124 



LOCAL DATA AREA 

PATOATt .WORO < 
OATASCt .ASCI/ 
.EVEN 
.S8TTL 



i TEMPORARY STORAGE ?Ofi DATA 

'ENTER DATA PATTERN' 

GETSEL - ISSUE MENU ANO GET OPERATOR RESPONSE 



ROUTINE TO ISSUE A MENU ANO GET 
THE OPERATOR'S RESPONSE. 



INPUTSi 

RO 
Rl 

OUTPUTS: 
RO 



AOORESS OF ASCI/ STRING OF MENU 
MAXIMUM ALI OWABLE OPERATOR RESPONSE 



NUMBER OF THE OPERATOR'S SELECTION 



GETSELu 



1$: 

2$J 



SAVREG 

MOV 

MOV 

TST 

BEQ 

PRINTF 

MOV 

MOV 

MOV 

MOV 



R0,R2 
R2.R3 
(R3) 
31 

♦SELASC,(R3)» 
<R3). ( (SP) 
•SELASC.-CSP) 
♦2, (SP) 
SP»RO 



jSAVE GENERAL REGISTERS 

I SAVE THE MENU AOORESS 

iSTAKT OF MENU STRING 

lENO OF ASCII ? 

iBRANCH IF ALL L INfcS DISPLAYED 

I DISPLAY THE MENU 
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C7 



SEQ 0060 



2631 
2632 



2635 

2634 

2635 
2636 
2637 



2638 
2639 
2640 
2641 
2642 
264 3 
2644 
2645 
2646 
264 7 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 



020306 
020310 
020314 
020316 
020316 
020320 
020322 
020324 
020326 
020330 
020332 
020334 
020336 
020336 
020336 
020540 
020344 
020346 
020350 
020350 
030354 
020360 
020362 
020364 
020370 
020372 
020374 
020442 
020447 



020500 
020500 
020504 
020504 



104417 
062706 
000764 

104443 
000406 
020476 
000042 
020447 
177777 
000000 
177777 



103352 
013700 
020001 
101411 

012746 

012746 

010600 

104417 

062706 

000735 

000207 

045 

045 

105 



020476 000000 



000006 



3$ 



10001 Is 



TRAP CIPNTF 

ADD *6 , SP 

BR 21 

GMANID MtNASC , MENKES , 

TRAP CIGMAN 

BR 100011 

■WORD MENRES 

.WORD TICOOE 

.WORD MENASC 

.WORD -1 

.WORD TILOLIM 

.WORD TIHILIM 



1.0,-1, NO 



020476 



020374 
OOO001 



000004 



116 
116 

156 



045 
045 
164 



5*: 

MENERR; 
SELASC: 

MENASCi 

MENRES: 



BNCOMPLETE 

BCC 

MOV 

CMP 

BLOS 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 



1$ 



II 

MENRES .RO 

R0.R1 

51 

♦MENERR 

♦MENERR, -(SP) 

•l.-(SP) 

SP.RO 

CIPNTF 

♦4.SP 

II 

PC 

'*N*A ♦*♦ Menu 

♦#N*T 4 

'Enter Menu Selection: 



iRETRY IF ERROR 



iGET THE OPERATOR'S REPLY 
iCOMPARE TO MAXIMUM ALLOWED 
iBRANCH IF OK 
jDISPLAY ERROR MESSAGE 



>RETRY 

iRETURN TO CALLER 
Selection Too Large ***' 



.SBTTL 



.WORO 

CHKMAN 





- CHECK 



MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY, 
INPUT : 



NONE. 



OUTPUT j 



CARRY 



SIDE EFFECTS? 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED. 



CHKMANw 



104450 



iAVREG 

MANUAL 
TRAP 



CI MAN! 



iSAVE THE REGISTERS 

I SEE Ir* MANUAL INTERVENTION OK 



D7 
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SEQ 0061 



2670 
2671 



2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 

2662 
2683 
2684 
2685 
2666 
2687 
2658 
2669 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 



020506 
020506 
020510 
020510 
020514 
020520 
020522 
020524 
020530 
020532 

020534 



2712 
2713 
2714 



020630 
020630 
020632 
020636 
020644 
020650 
020656 
020662 
020670 
020672 
020674 
020700 
020704 
020710 
020714 
020716 
020722 
020724 
020730 
020734 
020736 
020740 
020744 
020750 
020754 
020756 
020762 
020764 
020766 
020772 
021000 
021002 
021002 
021006 
021012 
021014 
021016 
021022 
021024 
021030 



103411 

012746 020534 

012746 000001 

010600 

104417 

062706 000004 

0O0241 

000207 



045 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000240 
012701 
010102 
062702 
004737 
103001 
000445 
013701 
062701 
012702 
005212 
013703 
020103 
001017 
005237 
042737 
000240 

012746 
012746 
010600 
104417 
062706 
000413 
005237 
000240 



116 



003124 
000002 
003126 
000004 
002012 
000007 



003124 
003126 
000002 
003130 

177520 

000002 
016376 



177520 
000001 
177520 

177520 



003144 
170000 



005554 
000001 



000004 
003146 



BCOMPLETE II 



1$: 



BCS 
PRINTF 

MOV 

MOV 

MOV 

TRAP 

ADO 

CLC 

RTS 



II 

WOMAN 

WOMAN , - ( SP ) 
♦ l.-CSP) 
SP.RO 
C$PNTF 

♦4.SP 
PC 



I BRANCH IF ALLOWEO 

l PRINT THE WARNING MESSAGE 



l CLEAR CARRY FOR ERROR 
I RETURN 



045 NOMANt .ASCIZ ' *N*A *** Manual Intervention not Allowed - Test Aborted *+* 
.even 
.SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 

I SUBROUTINE TO SET -UP VARIOUS ENVIRONMENTAL PARAMETERS. 



ENVIRN} MEMORY 
TRAP 
MOV 

003124 ADD 

MOV 

003126 SUB 

MOV 

003126 10$ { sue 

DEC 
BNE 
MOV 
ADD 
SUB 
MOV 
NOP 
MOV 
MOV 
ADD 
JSR 
BCC 
BR 
151: MOV 
ADO 
MOV 
INC 
MOV 
CMP 
BNE 
INC 

002120 BIC 

NOP 

PRINTF 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 
20$ j INC 
NOP 



RO 

CIMEM 

RO.FREE 

#2, FREE 

<RO),FRESIZ 

♦4.FRESIZ 

L$UNIT.R2 

e7,FRESI2 

R2 

10$ 

FREE.RO 

FRESIZ,RO 

e2.R0 

RO.FREEHI 

#6DVPCR,R1 

R1.R2 

#2,R2 

PC . XNXM 

15$ 

40$ 

BDVPCR.R1 

el.Rl 

*BDVPCR,R2 

(R2) 

BDVPCR.R3 

R1.R3 

20$ 

T23A 

0170000, LIHIME 

♦M8186 

eM8166,-(3P) 

•l.-CSP) 

SP.RO 

CIPNTF 
04, SP 
40$ 



GET 1ST FREE ADDRESS. .. 

. . .AND WORD COUNT. 

GET NUMBER OF UNITS 

TAKE AWAY 7 WORDS PER UNIT 



GET FIRST FREE ADORESS 
POINT TO LAST FREE AODRESS 
BACKUP 1 WORD 
STORE LAST FREE ADDRESS 



GET BDV11 PCR ADDRESS 

COPY TO R2 

SET THE RANGE 

SEE IF WE HAVE ONE 

OK TO SET FLAGS 

RETURN WITH FLAGS CLEAR 

SAVE PCR CONTENTS 

ADD ONE TO IT 

GET BDV11 PCR ADDRESS 

TRY TO WRITE TO IT 

GET RESULTS 

DID IT CHANGE? 

NO, MUST BE 11/23B 

SET THE FLAG 

SUPERVISOR COULD BE WRONG 

BR 40$ FOR RELEASE 

TELL THE SYSTEM TYPE 



i RE TURN 

I SET THE FLAG 

jBR 40$ FOR RELEASE 



r 
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7 



SEQ 0082 



2715 



2716 
2717 
.^716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2720 
2729 
C730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
273ft 
2739 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2756 
2759 
2760 
2761 
2762 
2763 
2764 
2 765 
2766 



021032 
021032 
021036 
021C42 
021C44 
021046 
021052 



021054 
021054 
021060 
021064 
021072 
021074 
021100 
021106 
021112 
021114 
021122 
021130 
021134 
021136 
021142 
021150 
021152 
021156 
021162 
021164 
021170 

021172 
021176 

021200 

021204 



012746 
012746 
010600 
104417 
062706 
000207 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 

000207 



005645 
000001 



000004 



003132 
003134 
002120 

000C04 
021172 
177572 

002120 
000177 
000004 

172340 
077406 

000200 
002000 

177600 



021200 
000004 



PRINTS 


OM8189 


j TELL THE SYSTEM TYPE 


MOV 


0M8189,-(SP) 




MOV 


♦ t.-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


04, SP 




RTS 


PC 


jRETURN 


.SBTTL 


KTINIT - SETUP 


KT11 MEMORY MANAGEMENT REGISTERS 



40$; 



ROUTINE TO INIT KT-ll 



KTINIT: 



001577 
000004 



003132 
003132 



177740 1$: 



2$? 



6$: 

91: 

♦ 



CLR 

CLR 

CMP 

BLOS 

MOV 

MOV 

TST 

NOP 

MOV 

BIC 

MOV 

CLR 

MOV 

MOV 

MOV 

ADD 

CMP 

BNE 

MOV 

BR 

MOV 
RTI 



KTFLG 

KTENABLE 

L$HIME, 01577 

9$ 

80€RRVEC,RO 

02I.&0ERRVEC 

SOSRO 

LIHIME. KTFLG 

0177.KTFLG 

RO.SOERRVEC 

RO 

0KIPAR0.R1 

077406. -40CR1) 

RO.(Rl)* 

0200.R0 

RO, 02000 

1* 

0177600. -CR1) 

9$ 

06*. (SP) 



INIT >28K MEMORY FLAG 

INIT TEST >28K FLAG 

GOT ENOUGH MEMORY (>28K)? 

NO. 

SAVE OLD ERR VEC PTR, 

SET ERR VEC PTR. 

GOT KT11? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR. 

RO - AR DATA. 

Rl • KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K". 

AT "I/O"? 

NO. 

YES. SET KTPAR7 FOR I/O. 



SET UP RETURN 

RTI TO NEXT LOCATION 



MOV RO.QOERRVEC i RESTORE OLD ERR VEC PTR. 

RTS PC 

SUBROUTINE TO SET EXTENOED FEATURES SWITCH 

Requires that SOFINIT and WRTCHR have been done previous to call 



INPUTS: 

R5 CURRENT UNIT NUMBER 

OUTPUTS! 

The Extended Features Switch is set. 



021206 



INVERT?: 



F7 
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SEQ 0083 



2767 


021206 


005737 


002226 






TST 


EXTFEA 




i IS SWITCH SET? 




2768 


021212 


001020 








BNE 


1* 




i YES, EXIT STAGE RIGHT! Cor the next one outo 


town ! ) 


2769 


021214 


012737 


100206 


021260 




MOV 


0100206 ,CM0PKT 




l WRT SUB -SYS HEM CMD 




2770 


021222 


012737 


021270 


021262 




MOV 


0WSM8K, CMDPKT »2 




t MSG BUT ADDR 




2771 


021230 


012737 


000006 


021266 




MOV 


06,CM0PKTf6 




j BYTE COUNT 




2772 


021236 


012737 


100010 


021270 




MOV 


♦100010, WSMBK 




l INVERT THE SWITCH 




2773 


021244 


012704 


021260 






MOV 


0CMDPKT.R4 




1 SET CMDPKT INTO R4 




2774 


021250 


004737 


010662 






JSR 


PCWRTCHR 




; DO IT 




2775 


021254 


000207 






H: 


RTS 


PC 




I RETURN 




2776 






















2777 










i 


COMMAND 


PACKET, 








2778 






















2779 




021260 






, 


■ 


<.*3>6177774 


iMUST BE ON MOO 4 BOUNORY. 




2780 






















2781 


021260 


000000 






CMDPKT: 


: 




j 1ST 


WORD IS TS05 COMMANO, 




2782 


021262 


000000 













1 2ND 


WORD IS THE BUFFER LOW ADDRESS. 




2783 


021264 


oooooo 













i3RD 


WORD IS THE BUFFER HIGH ADDRESS. 




2784 


021266 


000000 













}4TH 


WORD IS THE BYTE/PECORD/FILE COUNT. 




2785 






















2786 










j 


WRITE SUB -SYSTEM MEMORY 


CHARACTERISTIC BLOCK. 




2787 






















2788 


021270 


oooooo 






WSM6K: j 







(1ST 


WORD:: SEL 




2789 


021272 


oooooo 













1 2ND 


WORD:: SEL 2 




2790 


021274 


oooooo 













j 3RD 


WORD:: SEL 4 




2791 












.EVEN 










2792 










j ♦ 












2793 












SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 




2794 






















2795 






















2796 










j INPUTS 












2797 










lOUTPUTS: 










2798 












The NXMFLG !f Nt if m« 


can 1 


test. 




2799 












The NXMLO and NXMHI addresses ore setup. 




2800 










» _ 












2801 






















2802 


021276 








MEMCK:: 












2803 






















2804 


021276 










SAVREG 






iSAVE THE REGISTERS 




2805 


021302 


005037 


003136 






CLR 


NXMFLG 




; CLEAR THE FLAG 




2806 


021306 


005037 


003140 






CLR 


NXMLO 




» CLEAR THE TEST ADDRESS LO 




2807 


021312 


005037 


003142 






CLR 


NXMHI 




j CLEAR THE TEST ADDRESS HI 




2808 


021316 


0O5737 


003146 






TST 


T23B 




i IS IT A 11/23B? 




2809 


021322 


001407 








BEQ 


1* 




iNO 




2810 


021324 


023727 


002120 


007777 




CMP 


LIHIME. 07777 




I GREATER THAN 128K 




r?811 


021332 


103406 








BLO 


2$ 




i NO 




2812 


021334 


004737 


021452 






JSR 


PC.NXMTST 




i SETUP THE ADDRESS 




2813 


021340 


000427 








BR 


13$ 




tSET THE FLAG ANO EXIT 




2814 


021342 


005737 


003144 




11: 


TST 


T23A 




ilS IT A 11/23A? 




2815 


021346 


001413 








BEQ 


4$ 




I NO 




281.. 


021350 


023727 


002120 


005777 


2$: 


CMP 


LIHIME. 05777 




I GREATER THAN 96K 




2817 


021356 


101023 








BHI 


14$ 




|YES,23A/238 UlTH 128K MEMORY 




2818 


021360 


023727 


002120 


003777 




CMP 


L$HIME. 0^777 




j GREATER THAN 64K BUT LESS THAN 92K? 




2819 


021366 


103403 








BLO 


4$ 




iNO, CHECK 24K 




2820 


021370 


004737 


021452 






JSR 


PC.NXMTST 




I SETUP THE ADDRESS 




2821 


021374 


0004H 








BR 


13$ 




jSET THE FLAG ANO EXIT 




2822 


021376 


023727 


002120 


001577 


4$: 


CMP 


LIHIME.01577 




I GREATER THAN 24K BUT LESS THAN 64K? 




2823 


021404 


103410 








BLO 


14$ 




|N0, TELL THEM ANO EXIT WITH FLAG CLEAR 





G7 
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SEQ 0084 



2824 
2825 
2826 
2827 
2828 
2829 



2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2B44 
2845 
2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 



021406 
021412 
021420 
021424 
021426 
021430 
021430 
021434 
021440 
021442 
021444 
021450 



021452 
021456 
021462 

021466 



021504 



021534 
021540 
021544 



021546 



004737 021452 

062737 000077 003142 

005237 003136 

000411 

000410 

012746 005460 

012746 000001 

010600 

104417 

062706 000004 

000207 



013701 
062701 
042701 
010102 
000006 



010137 
000012 



042702 

010237 
000207 



13*: 
14$ j 



15$; 



JSR 

ADD 

INC 

BR 

BR 

PRINTF 

MOV 

MOV 

MOV 

TRAP 

AOD 

RTS 



PC.NXMTST 

*77,NXMHI 

NXMFLG 

15$ 

15$ 

ONOMEM 

*NOMEM,-(SP) 

♦l.-CSP) 

SP.RO 

C$PNTF 

♦4, OP 

PC 



I SETUP THE ADDRESS 

jFOOL THE 11/02 6 11/03 

» SET THE FLAG 

lEXIT 

j NOP FOR PRINTOUT 

j TELL THEM £ EXIT ***N0 PRINT***** 



{RETURN 



SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
OUTPUTS «,NXMLO,NXMHI jSETUP WITH NXM ADDRESS 



002120 
000200 
000177 



003140 



177700 
003142 



NXMTSTj MOV 


L$HIME,R1 


ADD 


#200, Rl 


BIC 


0177, Rl 


MOV 


R1.R2 


.REPT 


6 


ASL 


Rl 


.ENOR 




MOV 


R1,NXML0 


.REPT 


10, 


ASR 


R2 


.ENOR 




BIC 


0177700, R2 


MOV 


R2,NXMHI 


RTS 


PC 



jGET TOP OF MEMORY 

tMAKE IT I/O BLOCK OR OTHER NXM 

iRESAVE RESULTS 

I PUT IN PLACE FOR XFER 

I SAVE TEST AODRESS LOW 

I PUT IN PLACE FOR XFER 

j DON'T WANT ILA! 

{SAVE TEST ADDRESS HIGH 

{RETURN 



ENDMOD 



H7 
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SEQ 0085 
KTINIT - SETUP KTli MEMORY MANAGEMENT REGISTERS 

7 .TITLE TSV4 - MISCELLANEOUS SECTIONS 

8 

9 021546 BGNMOD TSV4 

021546 TSV4:: 

10 
16 



TSV4 - MISCELLANEOUS SECTIONS 
PROTECTION TABLE 



17 
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SEQ 0086 



18 

19 021546 
021546 

20 021546 

21 021556 
22 



177777 177777 



.SBTTL PROTECTION TABLE 
BGNPROT 
L$PROT;; 
177777 .WORD -1, -1, -1, -1 

ENOPROT 



I NO DEVICE PROTECTION REQUIRED. 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
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38 
39 



40 
41 
42 
43 
44 
45 
46 
47 



48 

49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



60 



61 
62 



63 



021556 
021556 

021556 
021556 
021562 
021566 
021572 
021576 
021600 

021604 
021610 
021614 
021622 
021626 
021632 
021636 
021636 
021642 
021644 
021644 
021646 
021654 
021656 
021662 
021664 
021670 
021672 
021676 
021700 
021706 
021710 
021710 
021712 
021714 
021714 
C21720 
021722 
021722 
021724 
021724 
<\?17J0 
02J.732 



012746 
012746 
012746 
012746 
104437 
062706 

005037 
005037 
012737 
005037 
005037 
005037 

012700 

104447 

103023 
023737 
103070 
005737 
100472 
013701 
006301 
005761 
001516 
032761 
001060 

104432 
000416 

012700 
10444 7 

103052 

012700 
104447 



000340 
170000 
000140 
000003 

000010 

002226 
003136 
006360 
003154 
003134 
002302 

000036 



002202 
003112 
002202 
003176 
040000 



SEQ 0087 



.SBTTL INI'.iALIZE SECTION 

}THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
I AT THE BEGINNING OF EACH PASS. 

I 

I IF "START" OR "RESTART", SET QUICK-PASS FLAG AND BUS-INIT, 

j IF "CONTINUE", NOTHING IS REQUIRED, 

1 
t - - 

J ♦ 



002200 



002012 



003176 



000035 



Q00040 



j INSERT TEMPORARY JUMP TO ODT 


8GNINIT 




L$INIT:j 




SETVEC 


0140,0170000,^340 


MOV 


0340, (SP) 


MOV 


0170000, -(SP) 


MOV 


0140, -C5P) 


MOV 


03,-CSP) 


TRAP 


C*SVEC 


ADD 


010, SP 


40?i CLR 


EXTFEA 


CLR 


NXMFLG 


MOV 


0€PRT1,EPRTSW 


CLR 


SIFLAG 


CLR 


KTENABLE 


CLR 


RAMSIZ 


READEF 


0EF, CONTINUE 


MOV 


0€F. CONTINUE, RO 


TRAP 


CIREFG 


BNCOMPLETE 1$ 


BCC 


it 


CMP 


UNITN,L*UNIT 


BHIS 


4$ 


TST 


DUFLG 


BMI 


NXTU 


MOV 


UNITN.R1 


ASL 


Rl 


TST 


ERTABL(Rl) 


BEQ 


SETU 


BIT 


06IT14 ( ERTABL(R1) 


BNE 


NXTU 


EXIT 


INIT 


TRAP 


CIEXIT 


.WORD 


L 10030 . 


lit READEF 


•EF.NEU 


MOV 


0€F.NEU,RO 


TRAP 


CIREFG 


BNCOMPLETE NXTU 


BCC 


NXTU 


READEF 


0£F. START 


MOV 


0€F. START t R0 


TRAP 


CfREFG 


BCOMPLETE 2* 



j ODT ROM ADDRESS 



jJB REV A-0 



jSET UP PRIMARY MESSAGE FOR REPLACEMENT 

»CLEAR "SOFT INIT" FLAG 

I CLEAR TEST ABOVE 28K FLAG 

i CLEAR RAM SIZE FOR RAMERR ROUTINE 



lUNIT IN RANGE? 
;BR IF NO. 
j DROPPED UNIT? 
jBR IF YES 



jDROPPED? 

i DO NOTHING IF "CONTINUE" 



I TAKE NEXT UNIT IF NOT NEW PASS. 
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021732 

64 021734 
021734 
021740 

65 021742 
021742 

66 021744 

67 021744 
021744 

68 021746 

69 021752 

70 021756 

71 021762 
72 

73 
74 

75 021766 

76 021772 

77 021772 

78 022000 

79 022004 

80 022010 

81 022014 

82 022016 

83 022022 
64 022024 

85 022026 

86 022032 
87 

86 022036 

89 022036 

90 022044 

91 022050 
022050 

92 022052 

93 022056 

94 022064 

95 022066 

96 022074 

97 022076 
022076 

98 022100 

99 022102 

100 022102 

101 022110 

102 022112 

103 022116 

104 022120 
022120 

105 022122 

106 022126 
107 

106 022130 
022130 

109 022132 

110 033134 
Ul 



103404 

012700 
104447 

103031 



104433 
005037 
005037 
005037 
005037 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
Q00741 



000037 



002214 
002222 
003144 
003146 



005037 003400 



177777 
020630 
021054 
003176 

003376 



002204 
022102 



177777 
002220 



002202 
002202 

177777 



002012 
002?20 

000100 



SEQ 0088 



2$: 



002204 



002202 

002012 
003112 



20$: 



30$: 



31$: 



4$: 
NEWPAS 

NXTU: 



000001 



11$: 
PASRPT 



BCS 2$ 

READEF *£F. RESTART 
MOV OEF . RESTART, RO 
TRAP C$REFG 
BNCOMPLETE 31$ 
BCC 31$ 



10$ j 



BRESET 

TRAP 

CLR 

CLR 

CLR 

CLR 

MOV 

MOV 

JMP 

CLR 

MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CM° 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORPT 

TRAP 

BR 



C$RESET 

TSTCNT 

FATFLG 

T23A 

T23B 

#340, -CSP) 

#20$, -(SP) 

O.ODT 

SKIPT 

♦-1.QVP 

PC.ENVIRN 

PC.KTINIT 

#€RTABL,RO 

CRO)* 

RO.OERTABE 

30$ 

4$ 

QVP 

PASRPT 



♦-1.UNITN 
DEVCNT 

C$bRK 

UNITN 

UNITN.L$UNIT 

SETU 

•-1.DUFLG 

11$ 

C$OCLN 



i 1ST PASS, BUS-INIT, . , 
jBUS RESET. 

jNUMBER Or TESTS RUN IN PASS 
j CLEAR FATAL ERROR COUNT 
I CLEAR 11/23A FLAG 
j CLEAR 11/23B FLAG 

} RE TURN TO DEBUGGER 
jjaaENTER THE DEBUGGER 
I CLEAR THE SUBTEST "SKIPPER" 

» . . .QUICK VERIFY. .. 

j SET ENVIRONMENT. 

j INITIALIZE KT MEMORY MANAGEMENT 

j CLEAR THE ERROR TABLE 



I GO REPORT THE STATUS 



jINIT UNIT NUMBER. . . 

{CLEAR COUNT OF DEVICES RUNNING 



j... AND SET NEXT UNIT NUMBER, 



L$UNIT 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

C$RFLA 

#ISR,RO 

NEWPAS 



C$ORPT 
NEWPAS 



#1 



jABORT, NO MORE UNITS. 



jHOW MANY UNITS SELECTED? 
iBR IF ONLY 1 
,ARE ANY STILL RUNNING? 
i BR IF NO 



i SHOULD WE PRINT STATISTICS 
I BR IF NO 



TSV4 - MISCELLANEOUS SECTIONS MACRO M1200 20-MAR-84 08:26 



L7 

PAGE 19-2 



INITIALIZE SECTION 



SEQ 0089 



112 022134 






022134 


013700 


002202 


022140 


104442 




113 022142 






022142 


103342 




114 022144 


005037 


003112 


115 022150 


005237 


002220 


1 16 0221S4 


012001 




117 022156 


010137 


002206 


118 






119 022162 


012001 




120 






121 






122 022164 


010137 


002210 


123 022170 


012721 


016216 


124 022174 


013721 


002212 


125 






126 022200 






127 






128 






129 






130 






131 






132 






133 






134 022200 


013701 


002202 


135 022204 


0O6301 




136 022206 


052761 


1000O0 003176 


137 022214 


005037 


005772 


138 022220 


023727 


002012 000001 


139 022226 


101416 




140 022230 






022230 


104421 




141 022232 


032700 


0010O0 


142 022236 


001412 




143 022240 






022240 


013746 


002202 


022244 


012746 


022332 


022250 


012746 


000002 


022254 


010600 




022256 


104417 




022260 


062706 


000006 


144 022264 






145 022264 


005037 


003114 


146 022270 


013701 


002206 


147 022274 


010102 




148 022276 


062702 


000002 


149 022302 


004737 


016376 


150 022306 


103005 




151 022310 


010137 


003114 


152 022314 


012737 


177777 003112 


153 022322 






154 






155 






156 






157 022322 






022322 


012700 


000000 



SETU: 



GPHARD UNITN.RO 

MOV UNITN.RO 

TRAP CIGPHRO 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV (R0)*.R1 

MOV Rl.CSRADOR 



MOV 

jMOV 

I MOV 

MOV 

MOV 

MOV 



(R0)*,R1 

(R0),R2 

R2.IPRI 

Rl.IVEC 

OINTR.CRD* 

IPRI.(Rl)* 



{GET UNIT N P-TABLE POINTER. 

I BR IF UNI T not AVAILABLE, 

jCLEAR "DROPPED" FLAG. 

i GET 1ST REGISTER ADDRESS. 

j ADDRESS OF REGISTERS OF UNIT UNDER TEST 

»GET VECTOR ADDRESS. 

{GET INTERRUPT PRIORITY 

j SET IN'iERPUPT PRIORITY. 

j SET INTERRUPT VECTOR POINTER... 

j .. .VECTOR. . . 

I ...AND PRIORITY. 



TST 
BEQ 



QVP 
5$ 



» 1ST PASS ?? 

I NO, SKIP THE PASS 1 STUFF. 



1*: 
i 

I 

t 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
j THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 

i 



10$ 



2$: 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


08IT15 t ERTABL(Rl) 


CLR 


EXTA 


CMP 


L$UNIT # 01 


BLOS 


10$ 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


OPNT.RO 


BEQ 


10$ 


PRINTF 


OPUNIT.UNITN 


MOV 


UNITN.-CSP) 


MCV 


OPUNIT, (SP) 


MOV 


02, -(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


06. SP 


CLR 


NODEV 


MOV 


CSRADDR.R1 


MOV 


R1.R2 


ADD 


*1SSR.R2 


JSR 


PC.XNXM 


BCC 


2$ 


MOV 


Rl. NODEV 


MOV 


0-1, DUFLG 



i SAY DEVICE RUNNING 

;CLEAR ERROR EXTENSION FLAG. 

j ARE WE TESTING MULTIPLE UNITS? 

j BR IF NO. 

j YES -- GET OPERATOR FLAGS. 

{SHOULD WE PRINT UNIT 0? 
5 BR IF NOT, 
{PRINT THE UNIT 



{ADDRESS OF FIRST REGISTER 

{START OF REGISTERS 

j ADDRESS OF TSSR REGISTER 

{TEST BOTH CONTROLLER REGISTERS 

l . . .AND BR IF ALL OK. 

{FLAG DEVICE AS NON-EXISTENT 

,DROP THIS UNIT, 



{FINALLY, SET CPU PRIORITY AND WE'RE DONE. 

{ENABLE INTERRUPTS. 



5$: 



SF.TPRI OPRIOO 
MOV OPRIOO.RO 



TSV4 - MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 

022326 104441 
158 022350 

02?330 

02,''330 104411 
159 

160 0^2332 045 116 
161 
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SEQ 0090 



10030; 



045 PUNIT; 



TRAP CfSPRI 

ENDINIT 



TRAP 



CtlNIT 



,A5CrZ /*N*N*A***** TESTING UNIT *D2*A *****/ 
.EVEN 
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SEQ 0091 



163 








164 








165 








166 








167 








168 








169 








170 022400 








022400 








171 022400 


010001 






172 022402 


006301 






173 022404 


052761 


100000 


003176 


174 022412 


042761 


040000 


003176 


175 022420 








022420 


010046 






022422 


012746 


022446 




022426 


012746 


000002 




022432 


010600 






022434 


104417 






022436 


062706 


000006 




176 022442 








022442 


000167 






022444 


000026 






177 022446 


045 


116 


045 


178 








179 








180 0224 74 








052474 








022474 


104452 






181 








182 








183 








184 








185 








186 








187 








188 








189 








190 








191 








192 022476 








0224 76 








193 022476 


012737 


177777 


003112 


194 022504 


010001 






195 022506 


006301 






196 022510 


052761 


140000 


003176 


197 022516 


000240 


000240 


000240 


198 022524 








022524 


010046 






022526 


012746 


022552 




022532 


012746 


000002 




022536 


010600 






022540 


104417 






022542 


062706 


000006 




199 022546 








022546 


000 U 7 






022550 


000030 







.SBTTL ADD AND DROP UNITS SECTIONS 



♦ ♦ 



THE ADD -UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



L*AUt 



BGNAU 





MOV 


R0.R1 j 




ASL 


Rl . 




BIS 


0100000. ERTABLCR1) ; 




BIC 


040000, ERTABL(Rl) j 




PRINTF 


01$, RO 




MOV 


RO, -(SP) 




MOV 


01$,~CSP) 




MOV 


02, -(SP) 




MOV 


SP,R0 




TRAP 


C*PNTF 




ADD 


06, SP 




EXIT 


AU 




.WORD 


J$JMP 




• WORD 


L10031-2-. 


1$: 


.ASCIZ 

.EVEN 


/tfhWA UNIT *D*A ADDED/ 




ENDAU 


i UNUSED. 


L10031: 







GET UNIT TO BE ADDED (RC) 
MAKE IT A WORD INDEX 
SET THE "ACTIVE'- BIT 
CLEAR THE "DROPPED" BIT 



TRAP 



C$AU 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSK DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPEJ" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND, OTHERWISE REMAIN INACTIVE. THE "DISPLAY" COMMAND 
UILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



L$DU: 



BGNDU 



MOV 


O-l.DUFLG 


MOV 


R0,R1 


ASL 


Rl 


BIS 


0140000, ERTABL(Rl) 


240,240 


,240 


PRINTF 


01$, RO 


MOV 


RO, -(SP) 


MOV 


01$, -(SP) 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


C$PNTF 


ADD 


06. SP 


EXIT 


DU 


.WORD 


J$JMP 


.WORD 


L10032-2-. 



? SAY DROPPED 
J ????????? 



B8 

TSV4 - MISCELLANEOUS SECTIONS MACRO M1200 20-MAR-84 08i26 PAGE 20-1 



ADO ANO DflO~> UNITS SECTIONS 



SEQ 0092 



200 022552 

201 

202 022602 
0226C2 
022602 

203 

204 

205 

206 022604 
022604 

^07 022604 

208 022610 

209 022614 

210 022620 

211 022622 
022622 
022626 
022630 
022654 
022656 
022642 
022644 
022650 

212 022652 

213 022654 

214 022656 

215 022662 

216 022662 
022662 
022661 1 



045 



104455 



013705 
012705 
004737 
105420 

012727 
000000 
013727 
000000 
005567 

001575 
005567 
001567 
005503 
001357 
004737 



104461 



116 



045 Hi 



002206 
000550 
016250 



000372 
002116 
177772 
177756 

017202 



L10032: 



.ASCI/ 

.EVEN 

ENODU 

TRAP 



/*N*A UNIT *D*A DROPPED/ 



C$DU 



» AUTO-DROP COOE SECTION. 

BGNAUTO 
LIAUTOu 

MOV 

MOV 
10$ i JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 



20$ t 
L 10033: 



BNE 

DEC 
Bf*€ 
DEC 
BNE 
JSR 



CSRADDR.R5 
♦360., R3 
PC.WAITF 
201 
250. 

♦250,,(PC)> 


LIDl Y,(PC)» 


-6CPC) 
. 4 

22(PC) 
.-20 
R3 
10$ 
PC,CKDROP 



iPOINT TO DEVICE REGISTER 

■ENOUGH TIME FOR 2400' REEL TO REWINO 

iWAIT F0« SSR TO SET 

iLEAVE WHEN SSR IS SET 

l WAIT FOR .25 SECONOS 



I BUMP COUNTER DOWN 

i KEEP GOING 

iTRY ANO DROP UNIT 



ENDAUTO 

TRAP C$AUTO 



\ UNUSED, 



C8 
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5EQ 0093 



218 
21* 
220 
221 

2:22 

223 

225 022664 
022664 

226 022664 

227 022670 

228 022674 
229 

2 30 

231 022676 

232 022 70* 

233 022710 
254 022710 

022710 
022710 

235 

236 

237 

236 

239 022712 
022712 

240 022712 
022712 
022716 
022722 
022724 
022726 

241 022732 

242 022734 

243 022736 

244 022740 

245 022744 

246 022746 

247 022750 
240 022752 

249 022754 

250 022760 

251 022762 

252 022766 
022 766 
022 770 
022772 
0227 76 
023002 
023004 
023006 

253 023012 

254 023014 

255 023020 

256 023022 
023022 
023024 



.SBTTL CLEAN-UP AND REPORT COOING SECTIONS 



THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS 
EXECUTED AT THE END OF EACH PASS (OP SUB-PASS). 
USE TO RETURN DEVICE UNOER TEST TO A NEUTRAL STATE, 



013705 
005737 
100405 



002206 
003112 



012765 000000 000002 
004737 016250 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010546 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
018746 



BGNCLN 
L ♦CLEAN:; 

MOV 
TST 
BMI 



MOV 
JSR 

1$: 

2*i ENOCLN 

L 10034} 

TRAP 

I ♦♦ 



CSRADDR,R5 

DUFLG 
It 



♦0.TSSRCR5) 

PC.WAHF 



CICLEAN 



iPOINT TO DEVICE REGISTER 
I "DROPPED" FLAG IS SET ON.., 
I... AND GROSS CONTROLLER FAULT... 
I.,. DON'T TRY TO XCT CLEANUP CODE. 

,00 SOFT INIT 



i THE REPORT COOING SECTION CONTAINS THE 

, "PRINTS" CALLS THAT GENERATE STATISTICAL REPORTS, 



I - - 



LIRPTm 



BGWPT 



023154 
000001 



000004 
003176 

040000 
170000 



023211 
0C0O03 



000010 

160000 

023^61 



It: 



2«i 



PRINTS 


♦OEVSUM 




MOV 


♦oevsun,-csP) 




MOV 


•l.-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTS 




ADD 


♦4.SP 




MOV 


R2.-CSP) 




MOV 


R3.-CSP) 




MOV 


R4.-CSP) 




MOV 


♦ERTABL.R4 


, GET START OF ERROR TAB 


CLR 


R3 


1 CLEAR UNIT NUMBER 


MOV 


(R4),R2 


i GET ERROP TABLE ENTRY 


BEQ 


4$ 


I ZERO IF UNIT NOT RUN 


BPL 


4$ 




BIT 


♦6IT14.R2 


I WAS UNIT DROPPED? 


BNE 


21 


1 BR IF YES 


BIC 


OtC7777,R2 


i GET ERROR COUNT FIELD 


PRINTS 


♦OEVONl ,R3,R2 


\ PRINT 


MOV 


R2.-CSP) 




MOV 


R3.-CSP) 




MOV 


♦OEVONL.-CSP) 




MOV 


♦3,-(SP) 




MOV 


SP.RO 




TRAP 


CIPNTS 




ADD 


♦10, SP 




BR 


4* 




CMP 


R2,* 160000 


i WAS UNIT NON-EXISTENT? 


BNE 


31 


I BR IF NO 


PRINTS 


K)EVNXR,R3 




MOV 


R3, (SP) 




MOV 


♦QEVNXR.-CSP) 





C TEST IT. 



D8 
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SEQ 0094 



257 
258 
259 
260 



261 
262 
263 



264 
265 
266 
267 
268 
269 
270 
271 



272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 



025030 
023034 
023036 
023040 
023044 
023046 
023052 
023054 
023054 
023056 
023062 
023066 
023070 
023072 
023076 
023100 
023104 
023104 
023106 
023110 
023114 
023120 
023122 
023124 
023130 
023134 
023136 
023142 
023144 
023146 
023150 
023152 
023152 
023152 



023154 
023211 
023261 
023343 
023424 



C23474 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
012746 
010600 
104416 
062706 
000414 
042702 

010246 
010546 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 
045 



000002 

000006 
160001 



023343 
000002 



000006 
170000 



023424 
000003 



OOOOIO 
000002 

003376 



116 
101 

101 
101 
101 



MOV 

MOV 

TRAP 

AOO 

BR 

3$: CMP 
BNE 

PRINTS 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
BR 

301 i BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

41; AOO 
INC 
CMP 
BLO 
MOV 
MOV 
MOV 
ENOR D T 

L10035} 

TRAP 



045 DEVSUM: .ASCIZ 
040 DEVONL? .ASCIZ 
040 DEVNXR: .ASCIZ 
040 DEVNRD: .ASCIZ 
040 DEVDROi .ASCIZ 
.EVEN 



UAS UNIT NOT 
BR IF NO. 



REAOY AT STARTUP? 



♦2.-CSP) 

SP,RO 

CIPNTS 

06.SP 

4$ 

R2. 0160001 i 

301 i 

#0EVNRD,R3 

R3.-CSP) 

♦OEVNRD.-(SP) 

02, -(SP) 

SP,RO 

CIPNTS 

#6 t SP 

4$ 

OtC7777,R2 

#OEV0R0,R3,R2 

R2,-CSP) 

R3.-CSP) 

♦OEVDRO.-(SP) 

03.-CSP) 

SP.RO 

CIPNTS 

♦10, SP 

♦2,R4 

R3 

R4,#ERTABE 

II 

(SP)*,R4 

(SP)»,R3 

<SP)*,R2 

I UNUSED. 

CIRPT 



/#N*ADEVICE STATUS SUMMARY :*N/ 

/*A UNIT #03*A ONLINE, ERRORS 

/*A UNIT *D3*A DROPPED, 

/*A UNIT *D3«A DROPPED, 

/*A UNIT *D3«iA DROPPED, ERRORS » *D*N/ 



*D#N/ 
NON-EXISTENT REGISTERS/ 
NOT READY AT STARTUPitN/ 



ENDMQD 
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SEQ 0095 
CLEAN-UP AND REPORT CODING SECTIONS 

1 .TITLE TSV5 - HARDWARE TESTS 

2 

9 
10 023474 BGNMOD TSV5 

023474 TSV5:: 

16 
24 
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F8 



SEQ 0096 



26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 

47 023474 
023474 

53 023474 

54 023500 

55 023504 

56 023512 

57 023512 
58 

59 023516 

60 023522 

61 023526 

62 023554 

63 023554 

64 023540 

65 023542 

66 023544 
023544 
023546 
023550 
023552 

67 
68 

69 023554 

70 023560 

71 023564 

72 023570 

73 025604 

74 025606 

75 025610 

76 025610 
025610 
025612 
025614 
025616 

77 025620 

78 023624 



012705 
012704 
012764 

004737 
105405 
010001 

104455 
000144 
0O5652 
012054 



005057 
010465 
0O4757 

105407 
010001 



104455 
000145 
024517 
012046 
005237 



■SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 



TEST DESCRIPTION; 



Thin test verifies that a Hardware Initialize command 
invoked after a Write Character i at ics command sets up 
the Command, Message and Characteristic image blocks 
in the controller ram correctly* 



TEST STEPS: 



REPEAT FOR LOOPCNT 
BEGIN 

Do WRITE CHARACTERISTICS command. 

If the NBA bit in the TSSR register is NOT-0 then Print Error. 

Write to TSSR register to soft initialize the controller 

If controller RAM 310-377 NOT-0 then Print Error 
END 



012700 024132 

004737 016510 

012737 000012 002216 

004757 024406 



T13L00P: 



002764 
024070 
0000 10 000006 

015774 



5$: 



BGNTST 

MOV 
JSR 
MOV 

JSR 

MOV 
MOV 
MOV 

JSR 

BCS 
MOV 
ERRDF 



*TST15ID,R0 
PC.TSTSETUP 
010. ♦ LOOPCNT 

PC.T15REST 

*TSTBIK*10.,R5 

OT15PACKET.R4 

*8,.PKBCNT(R4) 

PC.SOflNIT 

10$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



002222 
OOOOOO 
016336 



jDo WRITE CHARACTERISTICS command. 



lOt 



12$ 



002222 



15*: 



CLR FATFLG 

MOV R4,TSDB(R5) 

JSR PCCHKTSSR 

FORCERROR 12$ 

BCS 15$ 

MOV RO.Rl 

NEXT.ERRNO 

ERRDF ERRN0.T13SSR.PKTSSR 



INC FATFLG 
CKLOOP 



Tl: j 

jASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
.PERFORM 10 ITERATIONS 

»SET PACKET TO START-UP VALUES 

I START OF TEST DATA 

jGET THE ADDRESS OF COMMANO PACKET 

j START WITH MINIMUM ALLOWABLE VALUE 

•WRITE TO TSSR TO SOFT INITIALIZE 

i BR IF SOFT INIT OKAY 

I SAVE CONTENTS Of TSSR 

iDEVICE FATAL DURING INIT 

TRAP C$ERDF 
.WORD 100 
.WORD SFIF.RR 
.WORD SFIMSG 



l CLEAR FATAL ERROR FLAG 

I SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iSflOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 

.DEVICE FATAL SSR FAILED TO SET 

TRAP CtERDF 
.WORD 101 
.WORD T15SSR 
,WORD PKTSSR 

I SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 



G8 
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SEQ 0097 



023624 


104406 




79 023626 


016501 


000002 


80 023632 


012702 


000200 


81 023636 


032701 


oooioo 


82 023642 


001402 




83 023644 


052702 


000100 


84 






85 






86 023650 






87 023650 






88 023664 


020201 




89 023666 


001404 




90 023670 






91 023670 






023670 


104456 




023672 


0O0146 




023674 


024244 




023676 


012046 




92 023700 






023700 


104406 




93 






94 






95 023702 






96 023702 


004737 


015774 


97 023706 






98 023722 


103405 




99 023724 


010001 




100 023726 






101 023726 






023726 


104455 




023730 


0OO147 




023732 


003652 




023734 


012034 




102 






103 






104 023736 


012704 


000310 


105 023742 


005002 




106 023744 


105065 


000000 


10", 023750 


004737 


016336 


106 023754 


010465 


OOOOOO 


109 023760 


004737 


016336 


110 023764 


116501 


OOOOOO 


111 023770 






112 024000 


120102 




113 024002 


001406 




114 0240v>4 






115 024004 






024004 


104455 




024006 


000150 




024010 


024205 




024012 


015530 




116 024014 


005237 


002222 


117 024020 






024020 


104406 




US 024022 






024022 


104410 




024024 


000430 





MOV 


TSSRCR5),R1 


MOV 


*SSR»R2 


BIT 


•0FL.R1 


BEQ 


25$ 


BIS 


*0FL,R2 



TRAP 
{GET THE CONTENTS OF TSSR 
{EXPECTED CONTENTS OF TSSR 
iIS OFF-LINE BIT SET ? 
I BRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 



C*CLP1 



tlf the N8A bit in the TSSR register 19 NOT-0 then Print Error. 
25*: 

FORCERROR 27$ 

CMP R2,R1 

BEQ 30$ 

NEXT.ERRNO 

ERRHRD ERRNO , T 13N8A , PKTSSR 



1 330 

j DOES EXPECTED MATCH RECEIVED ? 
1 OKAY IF MATCH 



27$ 



30$ 



CKLOOP 



|N6A NOT ZERO 



j LOOP ON ERROR ? 



TRAP 


C$ERHRD 


.WORD 


102 


.WORD 


T13NBA 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



jWrlte to TSSR register to soft initialize the controller 
40$: 

JSR PC.SOFINIT 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, SFIERR, SFIMSG 



{WRITE TO TSSR TO SOFT INITIALIZE 

1 830 
|BR IF SOFT INIT OKAY 
{SAVE CONTENTS OF TSSR 



42$ 



: DEVICE FATAL DURING INlT 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
103 

SFIERR 
SFIMSG 



j If controller RAM 310-377 NOT-0 then Print Error 
50$: 



60$ 



62$ 



70$ 



MOV 


*310,R4 


l START WITH LOC 310 




CLR 


R2 


{MEMORY EXPECTED SHOULD BE OOOOOO 


CLRB 


TSDBCR5) 


j SET MAINTENANCE MOOE 




JSR 


PC.CHKTSSR 


iWAIT FOR SSR READY 




MOV 


R4,TS0e(R5) 


1 SELECT RAM ADDRESS 




JSR 


PC.CHKTSSR 


iWAIT FOR SSR READY 




MOVB 


TSBA(R5) t Rl 


j READ LOC CONTENTS 




FORCERROR 62$,N0TSSR 


lOSO 




CMPB 


R1,R2 


I CHECK MEMORY FOR OOOOOO 




BEQ 


70$ 


{BRANCH IF DATA OKAY 




NEXT.ERRNO 






ERRDF 


ERRNO, T13MEM.RAMEXP 


I MEMORY NOT ZERO AFTER INIT. 








TRAP 


C$ERDF 






.WORD 


104 






.WORD 


T1SMEM 






.WORD 


RAMEXP 


INC 


FATFLG 


j SET THE FATAL ERROR FLAG 




CKLOOP 












TRAP 


CICLP1 


ESCAPE 


TST 


lEXXT ON FATAL ERROR 








TRAP 


C$ESCAPE 






.WORD 


L 10036 -. 
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H8 



119 

120 024026 

121 024030 

122 024034 
123 

124 

125 024036 

126 024042 

127 024044 

128 024050 

129 024054 

130 024056 

131 024062 

132 024062 
024062 
024064 

133 
134 
135 
136 
137 
138 
140 

142 024070 

143 024070 

144 024072 

145 024074 

146 024076 
147 

148 024100 

149 024100 

150 024102 

151 024104 

152 024106 
153 

154 024112 

155 

156 

157 

158 024132 

159 024205 
160 

161 024244 

162 024317 
163 

164 
165 
166 
i.67 
168 
169 
170 
171 
172 

173 024406 

174 024406 

175 024412 



005204 

020427 000400 

001547 



005737 002222 

001402 

004737 017202 

004737 016456 

103002 

000137 023512 



104432 
000370 



024070 

100004 
024100 
000000 
000010 



024112 
000000 
000016 
000000 000000 



111 
111 

127 
103 



156 
156 

122 
157 



151 
143 

111 
156 



82$ { 



160$: 



165$ t 



INC 


R4 


CMP 


R4.0400 


BNE 


60$ 


TST 


FATFLG 


BEQ 


160$ 


JSR 


PC.CKDROP 


JSR 


PC.TSTLOOP 


BCC 


165$ 


JMP 


T13L00P 



EXIT 



TST 



J ♦ 

{LOCAL STORAGE FOR THIS TEST 
I - 

.-<.*10>£177770 
T13PACKET; 

.WORD 100004 
.WORD T13DATA 
.WORD 
.WORD 8. 



T13DATA- 



.WORD 
.WORD 
.WORD 
.WORD 



T13BFR 


14. 
0.0 



U38FR; .BLKW 8. 

j LOCAL TEXT MESSAGES FOR TEST 

I - 



SEQ 0098 



{LOOK AT NEXT RAM LOC. 

i AT TOP OF RAM ADDRESS SPACE 

I BRANCH TILL ALL MEMORY TESTED 



j ANY FATAL ERRORS ? 

j BRANCH IF NOT 

,TRY TO DROP THE UNIT 

j DONE ALL ITERATIONS? 

iBR IF YES 

j LOOP UNTIL ITERATION COUNT DONE 



TRAP C$EXIT 
.WORD L 10036 



,COMMANO PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH ACK 

; ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 
{MESSAGE BUFFER 



TSU3ID: 
T13MEM: .ASCIZ 

.EVEN 
T13N6A: .ASCIZ 
T13SSR: .ASCIZ 



.ASCIZ 'Initialization After WRITE CHARACTERISTIC S' 
'Incorrect RAM Data After Inif 

'WRITE CHARACTERISTICS Co<n*and Not Accepted' 

'Contents of TSSR Incorrect After WRITE CHARACTERISTICS' 



ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 



.EVEN 
T13RESTj 



012701 024070 



SAVREG 
MOV 



$T13PACKET,R1 



{SAVE THE REGISTERS 
{START OF THE PACKET 
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SEQ 0099 



176 024416 

177 024422 

178 024426 

179 024450 

180 024454 

181 024440 

182 024442 

183 024446 

184 024450 

185 024452 

186 024454 
024454 
024454 

187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 

198 024456 
024456 

203 024456 

204 024462 

205 024466 

206 024474 

207 024474 
024474 
0244 74 

208 024476 

209 024502 

210 024506 
024506 
024512 

211 024514 

212 024514 
024514 

213 024516 

214 024522 

218 024524 

219 024526 
024526 
024530 
024532 
024554 

220 024536 

221 024536 

222 024542 

223 024546 

227 024550 

228 024552 
024552 
024554 



012721 
012721 
005021 
012721 
012721 
005021 
012721 
005021 
005011 
000207 



104401 



012700 
004737 
012737 



104402 
004737 
004737 

012700 
104441 



104404 
004737 
103405 
010001 

104455 
000311 
003652 
012034 

012704 
004737 
103405 
010001 

104456 
000312 



100004 
024100 

000010 
024112 

000016 



MOV 


0100004, (Rl)f 


MOV 


*U3DATA t (Rl)» 


CLR 


CRD* 


MOV 


#8., CRD* 


MOV 


#Tl3BFR ( (Rl)t 


CLR 


CR1)* 


MOV 


♦14., CRD* 


CLR 


CRD* 


CLR 


(Rl) 


RTS 


PC 


ENDTST 





{WRITE CHARACTERISTICS WITH ACK 
j ADDRESS Of CHAR DATA BLOCK 
j EXTENDED ADDRESS 
jSIZE OF DATA BLOCK IN BYTES 
I ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



1 RETURN 



L10036: 



TRAP 



CtETST 



.SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 



i ♦ 

l 

iTHIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEriORY COMMANO WITH 

jBSELO SELECT COOE OF (NO-OP) EXECUTES CORRECTLY. IT ALSO 

I VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMANO WITH A NON-ZERO 

jMOOE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 

i COMMANO DECODING AND HANDLING SEQUENCES. 

i 

t - 



026271 
016510 
000024 002216 



026336 
026374 



T14L00P: 



BGNTST 

MOV 
JSR 
MOV 

BGNSUB 



000000 



015774 



5$; 



J5R 
JSR 
SETPRI 



BGNSEG 



*TST14ID,R0 
PC.TSTSETUP 
020. .LOOPCNT 



PC.T14REST 
PC.T14RST 

OPRIOO 



T2:: 
I ASCII MESSAGE TO IDENTIFY TEST 
iDO INITIAL TEST SETUP 
j PERFORM 20 ITERATIONS 

i//////////// BEGIN SUBTEST //////////// 

T2.1: 

TRAP C$BSUB 

:SET PACKET TO INITIAL VALUES 

jSET PACKET TO INITIAL VALUES 

{LOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C*SPRI 

}>>>>>>>>>>>> BEGIN SEGME.NT >>>>>>>>>>>> 



025630 
010662 



10$; 







TRAP C*BSEG 


JSR 


PC.SOFlfMIT 


{DO SOFT INIT OF CONTROLLER 


BCS 


101 


iBR IF SOFT INIT » OK 


MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 


ERRDF 


ERRNO,SFIERR,SFIMSG 


{DEVICE FATAL ERROR DURING INIT 

TRAP CSERDF 
.WORD 201 
.WORD SFIERR 
.WORD SFIMSG 


MOV 


4U4PK2.R4 


{SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


j ISSUE WRITL CHARACTERISTICS 


BCS 


in 


jBR. IF COMMA.*) ISSUED OK 


MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 


{WRITE CHARACTERISTIC FAILED 



TRAP CJERHRD 

, WORD 202 
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J8 



024556 
024560 

229 024562 

230 024562 
251 024566 
232 024572 
23? 024576 

234 024602 

235 024606 

236 024610 

240 024612 
024612 
024614 
024616 
024620 

241 024622 

242 024626 
024626 

243 024630 
024630 
024632 

244 024634 

245 024640 

249 024642 
024642 
024644 

024C^o 
024650 

250 024652 

251 024656 

252 024662 

253 024666 

254 024670 

255 024674 

256 024676 

260 024700 
024700 
024702 
024704 
024706 

261 024710 

262 024710 

263 024 714 

267 024716 
024716 
024720 
024722 
024724 

268 024 726 
024726 
024 726 

269 

270 

271 024730 
024730 
024730 

272 



005056 

012034 

005037 
005037 
012704 
010465 
0O4737 
103407 
010001 

104455 
0O0313 
026023 
012046 
005237 

104406 

104410 
000074 
005737 
001004 

104456 
000314 
026113 
012046 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
000315 
025652 
012046 

0O4737 
103405 

104456 
0O0316 

004745 
015510 



104405 



104403 



002222 
002224 
025210 
OOOOOO 
016336 



11$! 



002222 



15$ j 



002224 



000O02 
000200 
000100 

000100 



£ 



2$: 



25$: 



011114 



30$: 
35$: 



59$: 



ENDSUB 



.WORD 
.WORD 



WRTMSG 
SFIMSG 



CLR 


FATFLG 


CLR 


INTRECV 


MOV 


*T14PACKET,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


9CS 


15$ 


MOV 


R0.R1 


FRRDF 


ERRN0,T14SSR,PKTSSR 



j CLEAR FATAL ERROR FLAG 

I CLEAR INTERRUPT RECEIVED FLAG 

»SET UP NEW WRT. SUBSYS MEM. COMMAND 

j SET THE PACKET ADDRESS 

j WAIT FOR SSR TO SET 

iBR IF CARRY SET CGOOO RETURN) 

j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 









TRAP 


CIERDF 








.WORD 


203 








.WORD 


T14SSR 








.WORD 


PKTSSR 


INC 


FATFLG 




»SET FATAL ERROR FLAG 




CKLOOP 






,LOOP ON ERROR, IF FLAG SET 

TRAP 


C$CLP1 


ESCAPE 


SEG 




jBY-PASS SUBTEST IF FATAL ERROR 

TRAP 
. WORD 


C$ESCA 
10000$ 


TST 


INTRECV 




■DID AN INTERRUPT OCCUR ? 




BNE 


22$ 




I BRANCH IF YES 




ERRHRO 


ERRN0.T14NINT, 


, PKTSSR 







MOV 


T SSR(R5),R1 


MOV 


*SSR,R2 


BIT 


<K)FL ,R1 


BEQ 


25$ 


BIS 


<K)FL,R2 


CMP 


R2.R1 


BEQ 


30$ 


ERRHRD 


ERRN0,T14NBA,PKTSSR 



TRAP 
.WORD 
.WORD 
.WORD 
jGET THE CONTENTS 0? TSSR 
tEXPECTED CONTENTS OF TSSR 
»IS OFF-LINE BIT SET ? 
jBRANCH IF NOT OFF-LINE 
iSET OFF-LINE IN EXPECTED DATA 
jDOES EXPECTED MATCH RECEIVED ? 
lOKAY IF MATCH 
j NBA NOT ZERO 



C$ERHRD 
204 

T14NINT 
PKTSSR 



JSR PC.CKRAM 

BCS 59$ 

ERRHRD ERRNO.PKTRAM.RAMERR 



ENDSEG 





TRAP 


CIF.RHRD 




.WORD 


205 




.WORD 


T14NBA 




.WORD 


PKTSSR 


j CHECK RAM TO MEMORY 






;RAM OK GO ON 






» THEY DON'T MATCH 








TRAP 


C$ERHRD 




.WORD 


206 




. UOrO 


PKTRAM 




.WORD 


RAMERR 



; <<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

TRAP C5ESEG 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10040 : 

TRAP C$ESUB 



SEQ 0100 
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l<8 



SEQ 0101 



273 024732 

274 024736 

275 024740 

276 024744 
277 

278 

279 

280 

281 

282 

283 

284 

285 

286 024744 
024744 
024744 

287 

288 024746 
024746 
024752 

289 024754 

290 024760 

291 024764 

292 024770 
024770 

293 

294 024772 

295 024776 

299 025000 

300 025002 
025002 
025004 
025006 
025010 

301 025012 

302 025012 

303 025016 

307 025020 

308 025022 
025022 
025024 
025026 
025030 

309 025032 

310 025032 

311 025036 

312 025042 

313 025046 

314 025052 

315 025056 

316 025060 

320 025062 
025062 
025064 
025066 
0250/0 

321 025072 



005737 002222 

001402 

004737 017202 



104402 



012700 
104441 
012704 
004737 
004737 

104404 

004737 

103405 
010001 

104455 
000317 
003652 
012034 

0O4737 
103405 
010001 

104456 
000320 
005056 
012034 

PC )37 
Olt/04 

052714 
010465 
004737 
103405 
010001 

104455 
000321 
026023 
012046 



TST 


FATFLG 


BEQ 


60* 


JSR 


PCCKDROP 



60$: 

J ♦ 

J 

{TEST 2, SUBTEST 2 

{CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
{WRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 

{ 
J - 



{ANY FATAL ERRORS 7 

{BRANCH IF NOT 

{TRY TO DROP THE UNIT 



000000 

025630 
026336 
026374 



015774 



5$: 



010662 



10$: 



002224 
025210 
007000 
OOOOOO 
016250 



11*: 



BGNSUB 



{//////////// BEGIN SUBTEST //////////// 

T2.2: 

TRAP CIBSUB 



SETPRI 


OPRIOO 




{LOWER PRIORITY TO ALLOW INTERRUPTS 








MOV 


*PRI0O,R0 








TRAP 


C$SPRI 


MOV 


♦T14PK2.R4 




iGET THE ADDRESS OF COMMAND PACKET 


JSR 


PC.T14REST 




{RESTORE PACKET TO STARTING VALUES 


JSR 


PCT14RST 




{RESTORE PACKET TO STARTING VALUES 


BGNSF.G 






]>>>>>>>>>>>> BEGIN SEGMENT >>>>>>>>>>>> 








TRAP 


C$BSEG 


JSR 


PC.SOFINIT 




{DO SOFT INIT OF CONTROLLER 




BCS 


10$ 




tBR IF SOFT INIT - OK 




MOV 


R0,R1 




{SAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR, 


, SFIMSG 


{DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
207 
SFIERR 
SFIMSG 


JSR 


PC.WRTCHR 




{ISSUE WRITE CHARACTERISTICS 




BCS 


11$ 




{BR, IF CO'.MANO ISSUED OK 




MOV 


R0,R1 




tSAv c Contents of tssr 




ERRHRD 


ERRNO.WRTMSG, 


■ SFIMSG 


{WRITE SUBSYSTEM MEMORY FAILED 





TRAP 
.WORD 
.WORD 
.WORD 



C$ERH«D 
208 

WRTMSG 
SFIMSG 



CLR 


INTRECV 


MOV 


0T14PACKET,R4 


BIS 


OO070OO.CR4) 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


BCS 


15$ 


MOV 


R0.R1 


ERRDF 


ERRN0.T14SSR.PKTSSR 



{CLEAR INTERRUPT RECEIVED FLAG 
{SET-UP UITH WRT SUBSYS MEM PACKET 
jNON-ZERO COMMAND MODE BITS 
{SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 
iBR IF CARRY SET CGOOO RETURN) 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 

THrtP 



15$: 



CKLOOP 



{LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 
SET 



CIERDF 
209 
T14SSR 
PKTSSR 



L8 
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SEQ 0102 



322 



323 
324 
326 



329 
330 
331 
332 
333 
334 
335 
339 



340 
341 
342 
346 



347 



348 
349 



350 



351 
352 
353 
354 
355 
35? 
359 
360 
361 
362 
363 
364 
365 
366 
367 

365 



025072 
025074 
025074 
025076 
025100 
025104 
025106 
025106 
025110 
025112 
025114 
025116 
025122 
025126 
025132 
025134 
025140 
025142 
025144 
025144 
025146 
025150 
025152 
025154 
025154 
025160 
025 j. 62 
025162 
025164 
025166 
0251/0 
025172 
025172 
025172 

025174 
025174 
025174 
025176 
025176 
025200 



025210 
025210 
025212 
025214 
025216 
025220 
025220 
025221 
02S222 
025*24 



104406 

104410 
000074 
005737 
001004 

104456 
000322 
026113 
0X2046 
016501 
012702 
032701 
001402 
052702 
020201 
001404 

104456 
000323 
025726 
012046 

004 737 
103405 

104456 
000324 
004745 
015510 



104405 



10440? 

104432 
001246 



025210 

100206 
02522G 
000000 
000006 

000 

000 

000000 

000000 



002224 



000002 
100206 
000100 

000100 



22$: 



25$: 



011114 



30$; 
35$: 



ENDSEG 



59$: ENDSUe 



TRAP 



C$CLP1 



ESCAPE 


SEG 




{BY-PASS CHECKS IF FATAL ERROR 

TRAP 
• WORD 


C$ESCAPE 
10000$-. 


TST 


INTRECV 




j DID AN INTERRUPT OCCUR ? 




BNE 


22$ 




, BRANCH IF YES 




ERRHRD 


ERRN0.T14NINT 


.PKTSSR 


TRAP 
.WORD 
.WORD 
.WORD 


CSERHRD 
210 

T14NINT 
PKTSSR 


MOV 


TSSR(R5),R1 




{GET THE CONTENTS OF TSSR 




MOV 


OSCJSSR'TSREJ 


,R2 


{EXPECTED CONTENTS OF TSSR 




BIT 


OOFL.Rl 




{IS OFF-LINE BIT SET ? 




BEQ 


25$ 




{BRANCH IF NOT OFF-LINE 




BIS 


*0FL,R2 




l SET OFF-LINE IN EXPECTED DATA 




CMP 


R2.R1 




{DOES EXPECTED MATCH RECEIVED ? 




BEQ 


30$ 




lOKAY IF MATCH 




ERRHRD 


ERRN0 I T142REJ 


.PKTSSR 


j COMMAND NOT REJECTED 

TRAP 
.WORD 
.WORD 
. WORD 


C$EPHRD 
211 

T142REJ 
PKTSSR 


JSR 


PC.CKRAM 




t CHECK RAM TO MEMORY 




BCS 


59$ 




j RAM OK GO ON 




ERRHRD 


ERRNO.PKTRAMJ 


3AMERR 


{THEY DON 4 T MATCH 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
212 

PKTRAM 
RAMERR 



EXIT TST 



(<<<<<<<<<<<<< END SEGMENT <<<<<<<<<<<<< 

10000$: 

^-AP C$ESEG 

j\\\\\\\\\\\\\ END SUBTEST \S\n\\\\\\\\\ 

L 10041: 

TRAP C5ESU6 
{ALL DONE THIS TEST 

TRAP C$EXTT 
.WORD L10037-. 



1 ♦ 




{LOCAL STORAGE 
J - 


FOR THIS 


.•< . *1C 


»C177770 


T14PACKET: 




.WORD 


100206 


. wcno 


T14DATA 


.UORO 





.WORD 


6. 


T14DATA: 




T14BS0: .BYTE 





T14BS1: .BYTE 





T14BS2: .UORD 





• WORD 






TEST 



{COMMAND PACKET FOR TEST 

{WRITE SUOSYSTEM MEM, COMMAND. WITH IE, ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 

{CHARACTERISTICS DATA BLOCK 

jBSELO BYTE 

jBSELl BYTE 

{B5EL1 WORD 

iDATA 



M8 
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SEQ 0103 



369 
370 
371 
373 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
40 7 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 



025226 



025630 
025630 
025632 
025634 
025636 



025640 
025640 
025642 
025644 
025646 



025652 
025726 
026023 
026113 
026205 
026271 



026336 
026336 
026542 
026346 
026352 
026356 
026360 
026364 
026366 
026370 
026372 



0263 74 
026374 
026400 
026404 
026410 
026414 



025630 

100204 
025640 
000000 
000010 



025226 
000000 
000400 
000000 



127 
127 
103 
105 
111 
102 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000207 



012701 
012721 

012721 
005021 



000000 



122 
122 
157 
170 
156 
141 



111 
111 
156 
160 
143 
163 



025210 
100206 
025220 

000006 



025630 
10020' 
025640 



T14BFR; ,BLKW 128, 



T14PK2: 



.■<.*10>£177770 



T14DTA: 



.WORD 
.WORD 
.WORD 
.WORD 



WORD 
WORD 
WORD 
WORD 



100204 

T14DTA 



8. 



T14BFR 


256, 
0,0 



I MESSAGE BUFFER 



» COMMAND PACKET FOR TEST 

{WRITE CHARA, MEM. CMND.. WITH IE, ACK 

j ADDRESS OF SELECT DATA BLOCK 

{STARTING VALUE OF BLOCK SIZE 



{SELECT DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 



{LOCAL 

I - 



TEXT MESSAGES FOR TEST 



T14NBA: 

T142REJ: 

T14SSR: 

T14NINT 

T14TSBA 

TST14I0 



l * 



.ASCIZ 
.ASCIZ 



.EVEN 



'WRITE SUBSYSTEM MEMORY Command Not Accepted' 

.ASCIZ 'WRITE SUBSYSTEM MEMORY Not Rejected With Non-Zero Mode Field 1 

'Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY' 

.ASCIZ 'Basic WRITE SUBSYSTEM MEMORY Command' 



I ROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 
{WRITE SUBSYSTEM MEMORY COMMAND 



T14REST: 



Tl4RSTi 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR ' 

CLR 

CLR 

RTii 



SAVREG 

MOV 
MOV 
MOV 
CLR 



0T14PACKET.R1 
#100206. (Rl)* 
0T14DATA.CR1)* 
(Rl)# 

CR1). 
(Rl)* 

(Rl) 
PC 



*T14PK2,R1 
0100204, CRD- 

#T14DTA,CR1)* 
CRD* 



iSAVE 



{START 



THE REGISTERS 
OF THE PACKET 
{WRITE SUBSYSTEM MEM. WITH ACK. IE 
{ADDRESS OF DATA BLOCK 
{EXTENDED ADDRFSS 
{SIZE OF DATA BLOCK IN BYTES 
iCLEAR BSELO AND BSELl 
{CLEAR SFL2 
jCLEA - DATA AREA 
{RET MU 



{SAVE THE REGISTERS 
{START OF THE PACKET 
{WRITE CHARA, WITH ACK, 
{ADDRESS OF CHARAISTICS 
{EXTENDED ADDRESS 



IE 

DATA BLOCK 



N8 
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428 026416 

429 026422 

430 026426 

431 026430 

432 026434 

433 026436 

434 026440 

435 026444 

436 026446 
026446 
026446 



012721 000010 

012721 025226 

005021 

012721 000400 

005021 

005011 

005037 025226 

000207 



104401 



MOV 


*6.,(R1)» 


MOV 


0T14BFR.CR1)* 


CLR 


CRD* 


MOV 


V>256. .CRD* 


CLR 


(Rl)» 


ILR 


(Rl) 


Ci_R 


T148FR 


RTS 


PC 


ENDTST 





SEQ 0104 



j SIZE OF DATA BLOCK IN BYTES 
iMESSAJE BUFFER ADDRESS 

{LENGTH OF MESSAGE BUFFER 



j CLEAR 1ST LOC IN MESSAGE BUFFER 
{RETURN 



L10037: 



TRAP 



C5ETST 
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B9 



5EQ 0105 



4 56 
439 

440 
441 
442 
445 
444 
445 
446 
447 
448 
449 
450 
451 
452 
455 

455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 



4 70 
471 
472 
475 
4 74 
475 
4 76 
477 
478 
4 79 
480 
481 
482 
485 
484 
485 
486 
48/ 
488 
489 
490 
491 
492 
495 
494 
495 
4 96 
497 



.SBTTL TEST 3i DMA MEMORY ADDRESSING 



*TEST 3 

TEST DESCRIPTION 

Thta teat varlfiae that th* controller can properly addreee and 
acceee all available CPU memory (other than that occupied by tha 
dtegnoetic mnd diagnoetic auperviaor code) for both raading (DATI) 
and writing, (DATO). Varlfied era tha LSI -11 Bua drivera for all 
available addraaa Linea, Up to thia point only 16 bite have baen 
uaed for DMA tranefere, 

TEST STEPS 

REPEAT FROM 1 TO LOOPCNT 



BEGIN 

Do Subteet 1 
Do Subteet 2 
Do Subteet 5 
Do Subteet 4 

ENO 



- Verify GET STATUS aelected locationa 

- Verify maeaaga packate aelected locationa 

- Verify Character ; at ic data aelected loceti 
• Verify NXM to aelected invalid oddreaeea 



one 



026450 

026450 

026450 012700 050520 

026454 004737 016510 

026460 012737 000012 OQ2216 

026466 005237 003150 

026472 004737 021276 

0264 76 



BGNTST 

MOV 
JSR 

MOV 
INC 
JSR 



♦TST12ID,R0 
PC.TSTSETUP 
♦10. .LOOPCNT 

TsertG 

PC.MEMCK 



T12L00P: 



T3: : 
lASCII MESSAGE TO IDENTIFY 
|D0 INITIAL TEST SETUP 
,PERfORM 10 ITERATIONS 
jSF T TEST FLAG 
jCHECK MEMORY 

jLOOP ON TEST LABU 



TEST 



.SBTTL TEST 3: SUBTEST li GET STATUS SELECTED LOCATIONS 



TEST 3i SUBTEST li 

SUBTEST DESCRIPTION: 

Thia eubteet verifiae the controller can fetch a o*t atatua 

command from all available mamory locationa. 

Two word blockv mr^ teeted one at e time by ft rat vetting 

all available memory to a background pattern of 125252. 

A Gat Statua command ia than anacutad to varioua addraaaaa in 

each available memory 4k word block, The varioua eck*r*aeea 

mr^ determined by floating a 1 then a through the addrats bit** 

TEST STEPS: 

BEGIN 

Write to TSSR to eoft initialise 

Do a WRITE CHARACTERISTICS to letup a meaaage buffer 



C9 
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SEQ 0106 



498 

500 
501 
502 
503 
504 
505 
506 



507 
508 
509 
510 
511 
51? 
513 
514 



515 
516 
517 
516 
519 
520 
521 
522 
523 
524 
525 
526 
527 



528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 



0264 76 
0264 76 
026476 



026500 
026504 
026506 
026506 
026510 
026510 
026512 
026514 
026516 



026520 
026520 
026524 
026530 
026534 
026540 
026544 
026560 
026562 
026564 
026564 
026564 
026566 
026570 
026572 



026574 
026600 
026604 
026610 
026610 
026614 
026616 
026620 
026624 
026626 
026632 
026636 
026644 



104402 



004737 
103405 

010001 

104455 
000455 
003652 
012034 



012704 
004737 
005037 
010465 
004737 

103405 
010001 



104455 
0OO456 
030622 
012046 



005037 
005037 
012702 

005037 
012201 
005000 
005737 
001407 
016200 
042700 
012737 
0047J7 



ENO 



REPEAT FOR SELECTED VALID ADDRESSES IN DIAfT 
BEGIN 

G«t a valid modulo -4 t*»t mddrmmv 
Do a GET STATUS command from th« t«^ 
END 



' r FREE SPACE AND ABOVE 32K 



• «• 



015774 



BGNSUO 



jWrita to TSSR to aoft initial!** 
JSR PC.SOFINIT 
BCS 151 
NEXT. ERRNO 
MOV R0.R1 
ERRDF ERRNO ♦ SFIERR . SFIMSG 



;//////////// BEGIN SUBTEST ////////// 

T3.li 

TRAP CIBSUB 



,00 SOFT INIT OF CONTROLLER 
|BR IF SOFT INIT - OK 

l SAVE CONTENTS OF TSSR 

iDEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.WORD 301 

.WORD SFIERR 

.WORD SFIMSG 



030310 
031670 
003134 
000000 
016336 



1D0 a 


WRITE C 


HARACTERISTICS to ••tup a 


151: 








MOV 


•T12PACKET.R4 




JSR 


PC.T12SWRT 




CLR 


K TENABLE 




MOV 


R4.TSD6(R5) 




JSR 


PC.CHKTSSR 




FORCERROR 17$ 




BCS 


201 




MOV 


R0.R1 




NEXT. 


ERRNO 


17«: 


ERRDF 


ERRNO, T12WRTSSR.PKTSSR 



m«««»9* boff«r 

iGET THE ADDRESS OF COMMAND 
, RESTORE PACKET TO STARTING 
,TUPN OFF KT-11 
,SET THE PACKET ADDRESS 
jWAIT FOR SSR TO SET 



PACKET 

VALUES 



,BR IF SSR SET IN 
I SAVE CONTENTS OF 

iDEVICE FATAL SSR 



CHKTSSR 
TSSR 

FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
302 

T12WRTSSR 
PKTSSR 



, Verify a G«t Statu* cmn bm f«tch«d from aach addr««a 



002222 
030360 
030364 

003134 



030360 

177776 
177774 
000001 
031366 



iG*t a valid *oo\j1o-4 t««t addr««» 
1D0 a GET STATUS command from th« t*«t 



005134 



201; CLR 
CLR 
MOV 

T 1211. OOP 1 

CLR 
MOV 
CLR 
TST 
BEQ 
MOV 
BIC 
MOV 

25ll JSR 



FATFLG 

T12KT 

♦T12BLK.R2 

KTENABLE 

(R2)*,R1 

RO 

T12KT 

251 

2(R2),R0 
*tC<A1716>,R0 
•l.KTENAOLE 
PCT12CQNVERT 



addr««a 

, CLEAR FATAL ERROR FLAG 
iTEST ABOVE 26K SWITCH 
iPOINT TO TEST PATTERN TABLE 

» TURN OFF ABOVE 26K TEST FLAG 

iGET TEST PATTERN ADDRESS 

, ASSUME NO TEST ABOVE 28K 

1 TEST ABOVE 26K THIS TIME? 

iBR IF NO 

iGET TEST PATTERN AGAIN 

iSAVE 18 BIT ADDRESS ONL^r 

»TUHN ON ABOVE 26K TEST FLAG 

tCQNVERT TE.ST PATTERN TO TEST ADDRESS 
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TEST 3; SUBTEST 1: GET STATUS SELECTED LOCATIONS 



SEQ 0107 



545 
546 
547 
548 
540 
550 
551 
552 
553 
554 
555 
556 
557 
558 



559 

560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
57b 



574 
575 
576 
577 
5 78 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 



026650 
026652 
026656 
02666? 
026666 
026672 
026674 
026700 
026704 
026710 
026724 
026726 
026730 
026730 
026730 
026732 
026734 
026736 
026 740 
026740 
026742 
026742 
026752 
026756 
026760 
026764 
026770 
026772 
026776 
027000 
027006 
027012 
027016 
027022 
027022 
027022 
027024 
027030 
027032 
027036 



103034 
013704 
013703 
004737 
042703 
050304 
0O4737 
010465 
004737 

103405 
010001 



104455 
000457 
030546 
012064 

104406 



020227 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012702 
000137 
004737 



104403 
005737 
001402 
004737 



030354 
030352 
031736 

177774 

017274 
000000 

016336 



030516 

026610 
030360 

003132 

000001 
030364 
026610 

017274 



002222 
017202 



32$: 



BCC 


65$ 


MOV 


T12L0AD0.R4 


MOV 


T12HIA0D.R3 


JSR 


PC.T12SETGET 


BIC 


0tC<A1716>,R3 


BIS 


R3,R4 


JSR 


PC.KTOFF 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 32$ 


BCS 


40$ 


MOV 


R0,R1 


NEXT, 


ERRNO 


ERROF 


ERRN0.T12GETSSR.PKTGETS 



030360 



40$: 


CKLOOP 




65$ : 








FORCEXIT 80$ 




CMP 


R2.0T12TBE 




BHIS 


70$ 




JMP 


T121L0OP 


70$: 


TST 


T12KT 




UGT 


80$ 




TST 


KTFLG 




BEQ 


80$ 




MOV 


♦1.T12KT 




MOV 


♦T12BLK.R2 




JMP 


T121L0OP 


80$: 


JSR 
ENOSUB 


PC.KTOFF 




TST 


FATFLG 




BFQ 


100$ 




JSR 


PC.CKDROP 



iBR IF INVALID PACKET ADDRESS 

,COPY CURRENT PACKET LOW ADDRESS 

I COPY CURRENT PACKET HIGH ADDRESS 

I SETUP CURRENT PACKET TO GET STATUS 

iSAVE ADDRESS BITS 17*16 

I SETUP 18 BIT PACKET ADDRESS 

jTURN OFF KV-ll 

I SET THE PACKET ADDRESS TO EXECUTE 

jUAIT FOR SSR TO SET 

iBR IF SSR SET IN CHKTSSR 
l SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 303 

.WORD T12GET5SR 

.WCflD PKTfiETS 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLPl 



MOOULO- 4 ADDRESS 
28K TESTING TOO? 



100$: 



;DONE ALL TSTBLK TEST PATTERNS? 
iBR IF YES 
i DO ANOTHER 
tDONE ABCVE 
iBR IF YES 

I ANY MEMORY ABOVE 28K ON SYSTEM? 
I BR IF NO 
j SET SWITCH 

iRESET TEST PATTERN TABLE 
jDO ABOVE 28K TESTING 
jTURN OFF KT11 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10043 i 

TRAP C$ESUB 
j ANY FATAL ERRORS ? 
i BRANCH IF NOT 
I TRY TO DROP THE UNIT 



.SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 



TEST 3: SUBTEST 2: 

SUBTEST DESCRIPTION: 

This eubteet verifiae the controller 

to all available memory location*. 

Write Character i at ica command* ar* executed 

buffer addreseea aet to varioue addreesea in 

mamory location, 

Tha varioue addraaaee are determined by floating a 1 than a 

through the addreaa bit*. 

TEST STEPS: 



can depoait massage packets 

H>tS maaeaoe 
each available 
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TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 



SEQ 0108 



595 

5% 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

603 

609 027036 
027036 
027036 

610 

611 

612 

613 027040 

614 027044 

615 027046 

616 027046 

617 027050 
027050 
027052 
027054 
027056 

618 
619 

620 027060 

621 027060 

622 027064 

623 027070 

624 027074 

625 027100 

626 027104 

627 027120 

628 027122 

629 027124 

630 027124 
02 7124 
027126 
027130 
027132 

631 
632 
633 
634 

635 027134 

636 027140 

637 027144 

638 027144 

639 027146 

640 027150 

641 027154 



104402 



0O4737 

103405 

010001 

104455 
000460 
003652 
012034 



012704 
004737 
004737 
010465 
004737 

103405 
010001 



10445b 
000461 
030622 
012046 



005037 

012703 

012301 
010100 
042700 
042701 



BEGIN 

Writ* to TSSR to soft initial!** 

Do a WRITE CHARACTERISTICS to ••tup a mf«togf buffer to compare 

REPEAT FOR SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
BEGIN 

Get a valid modulo-4 test address 

Set the packet message buffer to the TEST ADDRESS 
Do a WRITE CHARACTERISTICS 

Restore the test message buffer to background pattern 
END 
END 



015774 



BGNSUB 



jWrite to TSSR to soft initialize 
JSR PCSOFINIT 
BCS 15$ 
NEXT.ERRNO 
MOV R0.R1 
ERRDF ERRNO.SFIERR.SFIMSG 



030310 
031670 
017274 
OOOOOO 
016336 



»Do a WRITE CHARACTERISTICS to setup a 
15$; 

MOV OT12PACKET.R4 

JSR PC.T12SWRT 

JSR PC.KTOFF 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 17* 

BCS 20$ 

MOV R0.R1 

NEXT.ERRNO 
17$: ERRDF ERRNO, T12WRTSSR.PKTSSR 



I //////////// BEGIN SUBTEST ////////// 

T3.2; 

TRAP CSBSUB 



j DO SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 

j SAVE CONTENTS OF TSSR 

, DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

. WORD 304 

.WORD SFIERR 

.WORD SFIMSG 

message buffer to compare 

jGET THE ADDRESS OF COMMANO PACKET 

i SET PACKET TO WRITE CHARACTERISTICS 

I TURN OFF KT-11 

I SET THE PACKET ADDRESS 

jWAIT FOP SSR TO SET 

jBR IF SSR SET IN CHKTSSR 
tSAVE CONTENTS OF TSSR 



;DEVICE FATAL SSR FAILED TO SET 




IHAH 


CffcHDF 


.WORD 


305 


.WORD 


T12WRTSSR 


.WORD 


PKTSSR 



002222 
030364 



17V ^ 74 

000003 



(Get a valid modulo-4 te«t address 

j Set the packet message buffer to the test address 

jOo o WRITE CHARACTERISTICS 



20$ j CLR 


FATFLG 


MOV 


0T12BLK.R3 


T122L00P} 




MOV 


(R3)*.R1 


MOV 


Rl.RO 


BIC 


0177774.RO 


BIC 


03.R1 



i CLEAR FATAL ERROR FLAG 
jPOINT TO TEST PATTERN TABLE 

jGET TEST PATTERN ADDRESS 
jGET ADDRESS ALL "10 BITS" 
jLEAVE ONLY A17 ANO A16 
jGET RID OF A17 AND A16 
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TEST 3; SUBTEST 2; MESSAGE PACKETS TO SELECTED LOCATIONS 



SEQ 0109 



642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 



657 

658 
659 
660 
661 
662 
663 
664 



665 
66b 

667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
68 7 
688 
689 
690 
691 



027160 
027164 
027166 
027172 
027176 
027202 
027210 
027216 
027222 
027226 
027232 
027246 
027250 
027252 
027252 
027252 
027254 
02 7256 
027260 
027262 
027262 
027264 
027264 
027274 
027300 
027302 
027306 
027312 
027312 
027312 
027314 
027320 
027322 
027326 



004737 
103402 
000137 
012704 
004737 
013737 
013737 
004737 
010465 
004737 

103405 
010001 



104455 
000462 
030622 
012046 

104406 



020327 
103002 
000137 
004737 



104403 
005737 
001402 
004737 



031366 

027264 
030310 
031670 
030354 
030352 
017274 
000000 
016336 



25*i 



030320 
030322 



32$: 



JSR 


PC.T12C0NVERT 


BCS 


251 


JMP 


150$ 


MOV 


#T12PACKET,R4 


JSR 


PC,T12SWRT 


MOV 


T12L0AOO,T120ATA 


MOV 


T12HIADD,Tl2DATAf2 


JSR 


PC.KTOFF 


MOV 


R4,TS0B(R5) 


JSR 


PC.CHKTSSR 


FORCERROR 32$ 


BCS 


50$ 


MOV 


R0.R1 


NEXT, 


ERRNO 


ERROF 


ERRNO , T12WRTSSR , PKTSSR 



030516 

027144 
017274 



002222 
017202 



180$: 



j CONVERT TEST PATTERN TO TEST ADDRESS 

j BR IF VALID MESSAGE BUFFER ADDRESS 

iGET ANOTHER TEST PATTERN TO TRY 

I SET THE COMMAND PACKET ADDRESS 

I SETUP T12PACKET TO WRITE CHAR. 

I SETUP LOW ORDER MESSAGE BUFFER ADD. 

» SETUP HIGH ORDER MESSAGE BUFFER ADD, 

j TURN OFF KT-11 

I SET THE PACKET ADDRESS TO EXECUTE 

l WAIT FOR SSR TO SET 

»BR IF SSR SET IN CHKTSSR 
» SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 306 

.WORD T12WRTSSR 

.WORD PKTSSR 

j LOOP ON ERROR, IF FLAG SET 

TRAP CICLP1 



iDONE ALL TST12BLK TEST PATTERNS? 
»BR IF YES 

»D0 ANOTHER MODULO- 4 ADDRESS 
I TURN OFF KT11 

jWWWWWNW ENO SUBTEST \\\\\\\\\\\\\ 

L 10044: 

TRAP C$ESUB 
t ANY FATAL ERRORS ? 
j BRANCH IF NOT 
j TRY TO DROP THE UNIT 



.SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 



50$: 


CKLOOP 




150$: 








FORCEXIT 160$ 




CMP 


R3.0T12TBE 




BHIS 


160$ 




JMP 


T122L00P 


160$: 


JSR 
ENOSUB 


PC.KTOFF 




TST 


FATFLG 




BEQ 


180$ 




je;< 


PCCKDROP 



♦ ♦ 



TEST 3: SUBTEST 3j 

SUBTEST DESCRIPTION: 

This subtest verifies the controller can fetch a 
Writ* Characteristics data block from all available 
memory locations. 

Write Character let ice commands are executed with 
character ietic data block* at various inemory addrasses, 
Th* variou* memory addresses are determined by Floating 
a 1 then a through the address bits, 

TEST STEPS: 

BEGIN 

Write to TSSR to ooft initialize 



REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
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TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 



SEQ 0110 



692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 027326 
027326 
027326 

703 

704 

705 

706 027330 

707 027334 

708 027336 

709 027336 

710 027340 
027340 
027342 
027344 
027346 

711 
712 

713 027350 

714 027354 

715 027360 

716 027564 

717 027364 

718 027370 

719 027372 

720 027374 

721 027400 

722 027404 

723 027410 

724 027412 

725 027416 

726 027422 

727 0274iO 

728 027434 

729 027436 
730 

731 027442 

732 027446 

733 027452 

734 027460 

735 027466 
736 

737 027472 

738 027476 

739 C27502 

740 027506 

741 027522 

742 027524 



104402 



BEGIN 



END 



END 



BGNSUB 



G«t a valid teet address 

Set the teet packet character 1st ics data pointer to the 

test address, 
Store expected character let ic data in t«9t address block 
Do a WRITE CHARACTERISTIC command 



I //////////// BEGIN SUBTEST ////////// 

T3,3j 

TRAP C*BSUB 



jWrite to TSSR to soft initialize 



004737 


015774 




JSR 


PC.SOFINIT 


103405 






BCS 

NEXT, 


20$ 
ERRNO 


01OO01 






MOV 
ERRDF 


R0.R1 

ERRNO, SFIERR.SFIMSG 


104455 










000463 










003652 










012034 














jGet 


a valid 


test address 


005037 


002222 


20$: 


CLR 


FATFLG 


005037 


030360 




CLR 


T12KT 


012703 


030364 




MOV 


#ri2BLK,R3 






T123L00P; 




005037 


003134 




CLR 


KTENABLE 


012301 






MOV 


(R3)»,R1 


010100 






MOV 


Rl.RO 


042700 


177774 




BIC 


0177774.R0 


042701 


000003 




BIC 


♦3.R1 


005737 


030360 




TST 


T12KT 


001407 






BEQ 


251 


016300 


177776 




MOV 


-2CR3) t R0 


042700 


177774 




BIC 


*tC<A1716>,R0 


012737 


000001 003134 




MOV 


•1, KTENABLE 


004737 


031366 


25*j 


JSR 


PC.T12C0NVERT 


103402 






BCS 


30$ 


000137 


027540 




JMP 


60$ 






j Set 


the test 


packet characteristic 


012704 


030310 


30$: 


MOV 


*T12PACKET,R4 


004737 


031670 




JSR 


PC.T12SWRT 


013764 


030354 000002 




MOV 


T12L0ADD.PKL0UCR4) 


013764 


030352 000004 




MOV 


T12HIADD.PKHICR4) 


004737 


032000 




JSR 


PC.T12CHAR 






iDo a WRITE CHARACTERISTIC command 


004737 


017274 




JSR 


PC.KTOFF 


010465 


000000 




MOV 


R4.TSD8CR5) 


004737 


016336 




JSP 


PC.CHKTSSR 








FORCERROR 32* 


103405 






BCS 


40$ 


01Q001 






MOV 


R0,R1 



l 00 SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT - OK 



iSAVE CONTENTS OF TSSR 




1 DEVICE FATAL ERROR DURING INIT 




TRAP 


CiERDF 


.WORD 


307 


.WORD 


SFIERR 


.WORD 


SFIMSG 



CLEAR FATAL ERROR FLAG 
TEST ABOVE 28K SWITCH 
POINT TO TEST PATTERN TABLE 

TURN OFF ABOVE 28K TEST FLAG 
GET TEST PATTERN ADDRESS 
GET ADDRESS ALL "18 BITS" 
LEAVE ONLY A17 AND A16 
GET RID OF A17 ANO A16 
TEST ABOVE 28K THIS TIME? 
BR IF NO 

GET TEST PATTERN AGAIN 
SAVE 18 BIT ADDRESS ONLY 
TURN ON ABOVE 28K TEST FLAG 
CONVERT TEST PATTERN TO TEST ADDRESS 
BR IF VALID TEST ADDRESS 
GET NEXT TEST PATTERN 
data pointer to the teat address 

GET THE ADDRESS OF COMMAND PACKET 
RESTORE PACKET TO STARTING VALUES 
STORE CHAR. DATA PTR LOW ADDRESS 
STORE CHAR. DATA PTR HIGH ADDRESS 
STORE EXPECTED DATA IN DATA BLOCK 

TURN OFF KT-11 

SET THE PACKET ADDRESS TO EXECUTE 

WAIT FOR SSR TO SET 

BR IF SSR SET IN CHKTSSR 
SAVE CONTENTS OF TSSR 
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TEST 3: SUBTEST 3 t CHARACTERISTIC DATA SELECTED LOCATIONS 



SEQ Oil! 



743 027526 

744 027526 
027526 
027530 
027532 
027534 

745 027536 
027536 

746 027540 

747 027540 

748 027544 

749 027546 

750 027552 

751 027556 

752 027560 

753 027564 

754 027566 

755 027574 

756 027600 

757 027604 

758 027610 
027610 
027610 

759 027612 

760 027616 

761 027620 

762 027624 
763 

764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
7 74 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
768 
789 
790 
791 
792 



104455 
000464 
030622 
012046 

104406 

020327 
103002 
000137 
005737 
003012 
005737 
001407 
012737 
012703 
000137 
004737 



104403 
005737 
001402 
004737 



NEXT.ERRNO 
32$: ERRDF ERRN0,T12WRTSSR,PKTSSR jDEVICE FATAL SSR FAILED TO SET 



030516 

027364 
030360 

003132 

000001 
030364 
027364 
017274 



002222 
017202 



030360 



40$: 


CKLOOP 




60$ j 








CMP 


R3.0T12TBE 




BHIS 


65$ 




JMP 


T123L0OP 


65$ j 


TST 


T12KT 




BGT 


701 




TST 


KTFLG 




BEQ 


70$ 




MOV 


•1.T12KT 




MOV 


*T12BLK,R3 




JMP 


T123L0OP 


70$: 


JSR 
ENOSUB 


PC, K TOFF 




TST 


FATFLG 




BEQ 


75» 




JSR 


PC.CKDROP 





TRAP 


C$ERDF 




, WORD 


308 




.WORD 


T12WRTSSR 




.WORD 


PKTSSR 


j LOOP ON ERROR, 


IF FLAG SET 
TRAP 


C$CLP1 



» DONE ALL TSTBLK TEST PATTERNS? 
iBR IF YES 

iDO ANOTHER MODULO- 4 ADDRESS 
iDONE ABOVE 28K TESTING TOO? 
:BR IF YES 

lANY MEMORY ABOVE 28K ON SYSTEM? 
iBR IF NO 
iSET SWITCH 

jRESET TEST PATTERN TABLE 
jDO ABOVE 28K TESTING 
jTURN OFF KT11 

l\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10045: 

TRAP CIESUB 
} ANY FATAL ERRORS ? 
I BRANCH IF NOT 
j TRY TO DROP THE UNIT 



75$ 



.SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 

TEST 3? SUBTEST 4: 

SUBTEST DESCRIPTION: 

This subtest verifies the NXM error bit in the TSSR 

register Is sat when attempting to fetch data Ca characteristic 

data block) fro* selected nonexistent location*. 

If NXM faila to set it ie likely that an LSI-ll Bus driver Is 

failing to assert an addreae line. 

Addressee tested include all combinat ions of high -order address 

bits ( i .e bits 16-21). 

**** ********* ************************ ***************************** 

CAUTION 

The LSI BUS drivers for all available address Unes(16 21) 
are only checked when running on a 11/23B system with more than 
128K words of memory! 

******************************************************************* 

TEST STEPS; 

BEGIN 

Write to TSSR to eoft initialize 

Oo a write characteristic command 
Invert the extended features switch 

REPEAT FOR SELECTED NON-EXISTENT MEMORY A0DRE5SES 
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5EQ 0112 



793 
794 
7<?5 
796 
797 
796 
799 
800 
801 
802 
803 



804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 



823 
824 
825 
826 

827 
828 
829 
830 
831 
832 
833 
834 
835 
836 



83? 



027624 
027624 
027624 



027626 
027632 
027634 
027642 
027644 
027650 
027650 
027654 
027656 



027662 
027666 
027670 
027670 
027672 
027672 
027674 
027676 
027700 



027702 
027702 
027704 
027710 
027714 
027720 
027724 
027730 
027744 
027746 
027750 
027750 
027 750 
027752 
027754 
027756 
027760 
027760 



104406 
012704 
0O4737 
005037 
010465 
004737 

103405 
010001 



104455 
000466 
030622 
012046 

104406 



BEGIN 



END 



END 



104402 



005737 003144 

001406 

023727 002120 007777 

103402 

000137 030236 

005737 003136 

001002 

000137 030236 



004737 015774 
103405 

010001 

104455 
000465 
003652 
012034 



5$: 



BGNSUB 



TST 

QEU 
CMP 
BLO 
JMP 

TST 
BNE 
JMP 



Get an Invalid test address 

Set the test packet characteristics data pointer to the 

test address. 
Do a WRITE CHARACTERISTIC command 
If TSSR register NXM bit not net then print error message 



T23A 

5$ 

L$HIME, 07777 

5$ 

NOEXTF 

NXMFLG 

101 

NOEXTF 



I //////////// BEGIN SUBTEST //////// '/ 

T3.4; 

TRAP C$B5UB 



» 26 


-APR-83 


REV 


B 


- CHK 


FOR 23A CPU 


>26 


•APR -83 


REV 


B 


- BR, 


IF NOT 23A 


1 26 


-APR- 83 


REV 


B 


- CHK 


FOR > 256KB 


|26 


-APR -83 


REV 


B 


- BR, 


IF < 256KB 


J 26 


-APR-83 


REV 


B 


- JMP 


OVER 256KB 



jWrite to TSSR to soft initialize 

10$: JSR PC.SOFINIT 
DC<i 11 $ 
N c . XT, ERRNO 
MOV R0,R1 
ERRDF ERRNO , SFIERR , SFIMSG 



I GOT ENOUGH MEMORY? 

I IF SET STAY 

I LEAVE IF NOT SET 



{DO SOfT INIT OF CONTROLLER 
tBR IF SOFT INIT - OK 



{SAVE CONTENTS OF TSSR 




{DEVICE FATAL ERROR DURING INIT 




TRAP 


C$ERDF 


.WORD 


309 


.WORD 


SFIERR 


.WORD 


SFIMSG 



jDo a WRITE CHARACTERISTIC command so to invert switch 



11$: 



CKLOOP 



030310 
031670 
003134 
000000 
016336 



15$: 



17$: 



MOV 


♦T12PACKET.R4 


JSR 


PC.T12SWRT 


CLR 


KTENABLE 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


FORCERROR 15$ 


BCS 


17$ 


MOV 


RO.Rl 


NEXT, 


ERRNO 


ERRDF 


ERRNO, T12WRTSSR.PKTSSR 



iLOOP IF SELECTED 

TRAP C$CLP1 
{GET THE ADDRESS OF COMMAND PACKET 
{RESTORE PACKET TO STARTING VALUES 
{TURN OFF KT-11 
{SET THE PACKET ADDRESS 
{WAIT FOR SSR TO SET 



CKLOOP 



jBR IF SSR SET IN 
{SAVE CONTENTS OF 

{DEVICE FATAL SSR 



{LOOP IF SELECTED 



CHKTSSR 

TSSR 



FAILED TO 
TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



SET 



CSERDF 
310 

T12WRTSSR 
PKTSSR 

C$CLP1 
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SEQ 0113 



838 027762 

839 

840 

841 

842 027766 

843 027772 

844 027772 

845 030000 

846 030006 
847 

84a 

849 
850 

851 030006 

852 030012 

853 030016 

854 030024 
855 

856 

857 030032 

858 030036 

859 030042 

860 030046 

861 030062 

862 030064 

863 030066 

864 030066 
030066 
030070 
030072 
030074 

865 030076 

866 030102 
030102 

867 030104 

868 030114 
030114 
030116 

869 

870 030120 

871 030120 

872 030124 
73 030140 

874 ^30144 

875 030146 

876 030146 

877 G301V* 

878 030162 
030162 
030164 
030166 
030170 

879 

880 030172 
030172 

881 0301 74 
$82 030204 



004737 021206 



005037 002222 

013737 003142 
013737 003140 



104406 



104410 
000124 



016501 

032701 
001012 

013737 
013737 

104456 

0004 70 
031257 
012126 



104406 
005737 



JSR PC, INVERT 
)G«t an invalid test address 



030352 
030354 



20*2 CLR 

25$: 

MOV 
MOV 

Tl24L00Pt 



FATFLG 

NXMHI,T12HIADD 
NXMU),T12L0ADD 



{INVERT THE SWITCH 



j CLEAR FATAL ERROR FLAG 

{SAVE TEST ADDRESS HIGH 
I SAVE TEST ADDRESS LOW 



i Set the test packet characteristics data pointer to the 
i test address. 



012704 
004737 
013764 
013764 


030310 
031670 
030354 
030352 


000002 
000004 


004737 
010465 
004737 


017274 
000000 
016250 


* 


103407 
010001 






104455 
000467 
030622 
012046 
005237 


002222 





30* J MOV *T12PACKET,R4 

JSR PC.T12SURT 

MOV T 12L0ADD , PKLOWC R4 ) 

MOV T12HIAD0.PKHICR4) 

{Do a WRITE CHARACTERISTIC command 

JSR PC.KTOFF 

MOV R4,TSDB(R5) 

JSR PC.WAITF 

FORCERROR 321 

BCS 40* 

MOV R0.R1 

NEXT.ERRNO 
32*; 



iGET THE ADDRESS OF COMMANO PACKET 
{RESTORE PACKET TO STARTING VALUES 
t STORE CHAR. DATA PTR LOW ADDRESS 
j STORE CHAR, DATA PTR HIGH ADDRESS 



{TURN OFF KT-11 

i SET THE PACKET AODRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

iBR IF SSR SET IN CHKTSSR 
{SAVE CONTENTS OF TSSR 



40* 



ERRDF ERRN0,T12WRTSSR,PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 






TRAP 


C*ERDF 




.WORD 


311 




.WORD 


T12WRTSSR 




.WORD 


PKTSSR 


INC FATFLG 


j SET FATAL ERROR FLAG 




CKLOOP 


j LOOP ON ERROR, IF FLAG SET 






TRAP 


C*CLP1 


FORCERROR 45I.N0TSSR 






ESCAPE SUB 


jBV-PASS SUBTEST IF FATAL ERROR 






TRAP 


CltSCAPE 




.WORD 


L10046-, 



000002 
004000 



030354 
030352 



002240 
002236 



{If TSSR reglwter NXM bit not set then print error message 
^5*1 

MOV TSSM(R5),R1 

FORCERROR 52* 

BIT *NXM,R1 

BNE 60* 

NEXT.nWMC 
52* J MOV T12L0ADD.ERRL0 
MOV 12H1ADD-ERRHI 
ERRHRL LRRNO , T * 2NXM , ADDSSR 



jGET TSSR CONTENTS 

{NXM SET? 
,BR IF YES 



003144 



60*} CKLOOP 

FORCEXIT 
TST TPiA 



90* 



{MEMORY TEST ADDRESS LOU 
iritriUHY TEST MUURESS HIGH 
{REPORT ADDRESS AND TSSR ERROR 

TRAP 
.WORD 
.WORD 
.WORD 

{LOOP ON ERROR, IF FLAG SET 

TRAP 

{IS IT A 11/23A? 



C*ERHRD 
312 

T12NXM 
ADDSSR 



C5CLP1 
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883 030210 

884 030212 

885 030216 

886 030220 

887 030224 

888 030226 

889 030232 

890 030236 

891 030236 

892 030236 

893 030242 
030242 
030242 

894 030244 

895 030250 

896 030252 

897 030256 

898 030262 

899 030264 

900 030270 

901 030270 

902 030274 

903 030300 
030300 
030302 

904 
905 
906 
907 
908 
909 
911 

913 030310 

914 030310 

915 030312 

916 030314 

917 030316 
918 

919 030320 

920 030320 

921 030322 

922 030324 

923 030326 
924 

925 030332 
926 

927 030352 

928 030354 

929 030356 

930 030360 

931 030362 
932 

933 
934 
935 
936 
937 030564 



001012 
013700 
005200 
020027 
101004 
010037 
000137 



104403 
005737 
001402 
004737 
004737 
103002 
000137 

004737 
005037 

104432 
001540 



030352 

000077 

03C352 
030006 



004737 017274 



002222 

017202 
016456 

C26476 

017274 
003150 



030310 

100004 
030320 
OOOOOO 
000010 



030332 
OOOOOO 
000016 
OOOOOO OOOOOO 



OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 





BNE 


90$ 




MOV 


T12HIADD.R0 


65$: 


INC 


RO 




CMP 


R0.077 




BHI 


90$ 


75$: 


MOV 


R0,T12HIAD0 




JMP 


T124L00P 


901: 






NOEXTF; 








JSR 


PC.KTOFF 




ENDSU6 






TST 


FATFLG 




8EQ 


100$ 




JSR 


PC.CKDROP 


100$; 


JSR 


PC.TSTLOOP 




BCC 


1054 




JMP 


T12L0OP 


105$; 








JSR 


PC.KTOFF 




CLR 


T3BFLG 




EXIT 


TST 



j LOCAL STORAGE FOR THIS TEST 
I - 

.-<.*10>£177770 
T12PACKET: 

, WORD 100004 

.WORD T120ATA 

.WORD 

.WORD 8. 



T12DATA: 



.WORD 
.WORD 
.WORD 
.WORD 



T12BFR 


14. 
0,0 



T12BFR: ,BLKW 8. 



T12HIAD0; 
T12L0ACD: 
T12PAR6: 
T12KT: 
T124TST: 
♦ 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 












000001 



TABLE OF ADDRESSES 



T12BLK; .WORD 000001 



SEQ 0114 



YES WERE DONE 

GET CURRENT HIGH ADDRESS 

GET NEXT ADDRESS 

DONE A21 A16? 

BR IF YES 

SETUP NEW HIGH ORDER ADDRESS 

DO ANOTHER NON-EXISTENT ADDRESS 



TURN OFF KT11 

\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\ 

L 10046: 

TRAP C$ESUB 
ANY FATAL ERRORS ? 
BRANCH IF NOT 
TRY TO DROP THE UNIT 
SHOULD WE DO ITERATIONS? 
BR IF NO 
LOOP UNTIL ITERATION COUNT DUNE 

TURN OFF MEMORY MANAGEMENT 
CLEAR TEST FLAG 
ALL DONE THIS TEST 



TRAP 
.WORD 



C$EXIT 
L 10042 



I COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND. WITH ACK 

, ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 

, CHARACTERISTICS DATA BLOCK 
j LOW ADDRESS OF MESSAGE BUFFER 
iHIGH ORDER OF MESSAGE BUFFER 
j LENGTH OF MESSAGE BUFFER 



{MESSAGE BUFFER 

,HIGH ADDRESS 

jLOW ADDRESS 

j ADDRESS IN PAR FORMAT 

I TEST ABOVE 28K SWITCH 

jADDRESS TEST BIT 
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SEQ 0115 



ed' 



938 


030366 


000002 








.WORD 


000002 


939 


030370 


000003 








.WORD 


000003 


940 


030372 


000005 








.WORD 


000005 


941 


030374 


000006 








.WORD 


000006 


942 


030376 


000007 








.WORD 


000007 


943 


030400 


0OCO11 








.WORD 


000011 


944 


030402 


000012 








.WORD 


000012 


945 


030404 


000013 








.WORD 


000013 


946 


030406 


000021 








.WORD 


000021 


947 


030410 


000022 








.WORD 


000022 


948 


030412 


000023 








.WORD 


000023 


949 


030414 


000041 








.WORD 


000041 


950 


030416 


C00042 








.WORD 


000042 


951 


030420 


000043 








.WORD 


000043 


952 


C30422 


000101 








.WORD 


000101 


953 


030424 


000102 








.WORD 


000102 


954 


030426 


000103 








.WORD 


000103 


955 


030430 


000201 








.WOftD 


000201 


956 


030432 


000202 








.WORD 


000202 


957 


030434 


000203 








.WORD 


000203 


958 


030436 


000401 








.WORD 


000401 


959 


030440 


0OO402 








.WORD 


000402 


960 


030442 


000403 








.WORD 


000403 


961 


030444 


001001 








.WORD 


001001 


962 


030446 


001002 








.WORD 


001002 


963 


030450 


001003 








.WORD 


001003 


964 


030452 


002001 








.WORD 


002001 


965 


030454 


0C2002 








.WORD 


002002 


966 


0i0456 


002003 








.WORD 


002003 


967 


030460 


004001 








.WORD 


004001 


968 


030462 


004002 








.WORD 


004002 


969 


030464 


0O4003 








.WORD 


004003 


970 


030466 


010001 








.WORD 


010001 


971 


030470 


010002 








.WORD 


010002 


972 


030472 


010003 








.WORD 


010003 


973 


030474 


020001 








.WORD 


020001 


974 


030476 


020002 








.WORD 


020002 


975 


030500 


020003 








.WORD 


020003 


976 


030502 


040001 








.WORD 


040001 


977 


030504 


040002 








.WORD 


040002 


978 


030506 


040003 








.WORD 


040003 


979 


030510 


100001 








.WORD 


10OO01 


980 


030512 


100002 








.WORD 


100002 


981 


030514 


100003 








.WORD 


100003 


9(32 


030516 


177777 






T12TBE: 


.WORD 




983 










l ♦ 






984 










: LOCAL 


T«=XT MESSAGES F 


985 










i - 






986 
















987 


030520 


104 


1)5 


101 


TST12I0 


* 


.ASCIZ 


988 


030546 


103 


157 


156 


T12GETSSR: 


.ASCIZ 


989 


030622 


103 


157 


156 


T12URTSSR: 


.ASCIZ 


990 


030711 


115 


145 


163 


T12MSGBUF{ 


.ASCIZ 


991 


031007 


102 


141 


143 


T12BKGND: 


.ASCIZ 


99? 


031075 


105 


170 


160 


T12NINT 


♦ 


.ASCIZ 


993 


031166 


127 


162 


151 


T12DPR: 




.ASCIZ 


994 


031257 


124 


123 


123 


T12NXM? 




. ASCIZ 



177777 



'DMA Memory Addre«etng' 

'Content* of TSSR Incorrect After GET STATUS' 

'Content* of TSSR Incorrect After WRITE CHARACTERISTICS* 

'Meeeage Buffer Content* Incorrect After WRITE CHARACTERISTICS' 

'Background Pattern Disturbed By WRITE CHARACTERISTICS' 

'Expected Interrupt Not Received On WRITE CHARACTERISTICS' 

'Write Character iet ic data In ram does not match expected' 

'TSSR NXM bit foiled to set when non-existent memory address specif 5 
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SEQ 0116 



995 
996 
997 
998 
999 
1000 
1001 
1002 
.1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
104 7 
1048 
1049 
1050 
1051 



031366 
031366 
031372 
C31376 
031402 
031406 
031412 
031414 
031420 
031424 
031430 
031432 
031436 
031442 
03144o 
031452 
031456 
031460 
031462 
031466 
031470 
031474 
031476 
031500 
031504 
031506 
031506 
031512 
031514 
031520 
031522 
031526 
031530 
0315.54 
031536 



005037 
005037 
005037 
042701 
010005 
004737 
013702 
062702 
060102 
042702 
013703 
162703 
010237 
010237 
020203 
101007 
020237 
103007 
005737 
001004 
0OO424 
162702 
000754 

CKJ'5737 
001420 
005737 
001413 
004 73 7 
010500 
01003/ 
010201 
004737 



030354 
030352 
030356 
170000 

017274 
003124 
000020 

000003 

003130 
000020 
030354 
030356 



003124 
003134 

000020 

003134 
003132 
017256 
030352 
01731b 



.EVEN 



ROUTINE TO CONVERT A TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
DIAGNOSTIC FREE SPACE IS BETWEEN THE END OF THE DIAGNOSTIC AND THE 
BEGINNING OF THE SUPERVISOR, THIS IS ALWAYS BELOW 24K. 
IF MEMORY ABOVE 28K SPECIFIED (VIA Rl) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 



INPUTS j 



RO 
Rl 



HXGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OUPTUTS: 

T12PAR6 » 
T12HIADD 
T12L0ADD 
C BIT ■ 1 



ADDRESS BIASED TO PAR6 IF >28K UNDER TEST 
• HIGH ORDER ADDRESS IN NON PAR6 FORMAT 
' LOW ORDER ADDRESS IN NON PAR6 FORMAT 
IF GOOD ADDRESS RETURNED 



C BIT « IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 



T12C0NVERT? 

SAVREG 

CLR 

CLR 

CLR 

BIC 

MOV 

JSR 

MOV 

ADD 

ADD 

BIC 

MOV 

SLB 

MOV 

MOV 

CMP 

BHI 

CMP 

BHIS 

TST 

BNfc 

BR 

sue 

BR 



25* 



35$ 
50$ 



TST 
BEQ 

TST 
BEQ 

JSR 
M v 
MOV 
MOV 
JSR 



T12L0ADD 

T12HIADD 

T12rAR6 

*tC<7777>,Rl 

R0.R5 

PC.KTOFF 

FREE.R2 

*16. ,R2 

R1.R2 

*3 t R2 

FREEHI.R3 

*16. ,R3 

R2.T12LOADD 

R2.T12PAR6 

R2.R3 

35$ 

R2.FRF.E 

50$ 

KTENA8LE 

50$ 

90$ 

♦16. ,R2 

25$ 

KTENABLE 

100$ 

KTFLG 

90$ 

PC. K TON 

R5.R0 

H0.T12HIADD 

R2.R1 

PC.Sfc.TMAP 



SAVE R1-R5 UNTIL NEXT RETURN 

CLEAR LOW ADDRESS 

CLEAR HIGH ADDRESS 

CLEAR PAR6 BIASED ADDRESS 

FORCE TO LOWER 12 BITS OF ADDRESS 

SAVE HIGH ORDER ADDRESS BITS 

SHUTOFF MEMORY MANAGEMENT 

GET FIRST FREE ADDRESS 

IN CASE TEST PATTERN-0 

ADD IN TEST PATTERN 

MAKE IT MODULO -4 

GET LAST FREE ADDRESS 

SAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 

SAVE POSSIBLE LOW ADDRESS 

SAVE IT IN PAR6 BIASzD TOO 

IS THIS ADDRESS ABOVE FREE SPACE? 

BR IF YES 

IS IT IN FREE SPACE? 

BR IF YES- ITS GOOD 

TESTING ABOVE 28K? 

BR IF YES 

BR IF NOT IN FREE SPACE 

FORCE FIT THE TEST PATTERN 

TRY THIS TEST PATTERN ADDRESS 

TESTING A30VE 28K? 
BR IF NO 

ANY MEMORY ABOVE 28K? 
BR IF NO 

TURN ON MEMORY MANAGEMENT 
GET HIGH ORDER ADDRESS 
SAVE POSSIBLE HIGH ADDRESS 
GET COMPUTED LOW ORDER ADDRESS 
{RETURN PAP6 BIASED ADDRESS IN RO 
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SEQ 0117 



1052 


031542 


010037 


030356 




MOV 


R0.T12PAR6 


,COPY PAR6 BIASED ADDRESS 


1053 


031546 


103403 






BCS 


105$ 


; BR IF VALID ADDRESS 


1054 


031550 


00024 1 




90$: 


CLC 




iCLR C BIT FOR FAILURE 


1055 


031552 


000401 






OR 


105* 


i 


1056 


031554 


000261 




100$ t 


SEC 




jSFT SUCCESS 


1057 


031556 


000207 




105$: 


RTS 


PC 


1 RETURN 


1058 
















1059 
















1060 








; ♦ 








1061 








! 








1062 








j ROUTINE TO READ THE FIRST 2 


BYTES FROM RAM 


1063 








l MEMORY 


AND COMPARE THIS DATA TO A COMMAND PACKET. 


1064 








1 








1065 








; INPUT { 








1066 
















1067 










R4 


ADDRESS OF THE COMMAND PACKET 


1068 










R5 


FIRST DEVICE 


UNIBUS ADDRESS 


1069 
















1070 








! OUTPUT 


; 






1071 








J 








1072 








J 


CARRY 


SET - RAM MATCHES PACKET 


1073 








i 




CLR - RAM DOES NOT MATCH PACKET 


1074 








i 








1075 








{IMPLICIT OUTPUT; 




1076 








» 








1077 








• 


THE TABLE RAMDATA IS 


FILLED WITH THE 


1078 








i 


DATA HELD IN RAM. 




1079 








j 


RAMSIZ 


SET TO 2 FOR 


PRAMPKT ROUTINE 


1080 
















1081 








IsiDE EFFECTS: 






1082 
















1083 










THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


1084 
















1085 








j - 








1086 


031560 






T12CKRAH: t 






1087 


031560 








SAVREG 




j SAVE THE GENERAL REGISTERS 


1088 


031564 


Olr'./Ol 


002242 




MOV 


0RAM0ATA.R1 


; ADDRESS TO SAVE THE RAM DATA 


1089 


031570 


012/02 


0C0201 




MOV 


0RMPKTBEG.R2 


jBYTE ADDRESS OF FIRST RAM DATA 


1090 


031574 


005003 






CLR 


R3 


{CLEAR THE ERROR FLAG 


1091 


031576 


004737 


016336 




JSR 


PC.CHKTSSR 


j WAIT FOR SSR 


1092 


031602 


112765 


000000 


OOOOOO 


MOVB 


OO.TSDBCRS) 


jSET MAINTENANCE MODE 


1093 


031610 


004737 


016336 


10$! 


JSR 


PC.CHKTSSR 


{WAIT FOR SSR TO SET 


1094 


031614 


010265 


OOOOOO 




MOV 


R2.TSDBCR5) 


t SELECT NEXT RAM ADDRESS 


1095 


031620 


004737 


016336 




JSR 


PC.CHKTSSR 


tWAIT FOR SSR TO SET 


1096 


031624 


116511 


OOOOOO 




MOVB 


TSBACR5),CR1 


/ {READ THE RAM DATA 


1097 


031630 


122124 






CMPB 


(R1)*,(R4)» 


j COMPARE TO EXPECTED 


1098 


031632 


001401 






BEQ 


20$ 


j BRANCH IF OK 


1099 


031634 


005203 






INC 


R3 


j SET ERROR FLAG 


1100 


03l6->6 


005202 




20$j 


INC 


R2 


jADDRETS OF NEXT RAM LOCATION 


1101 


031640 


020227 


000203 




CMP 


R2.0RMPKTBEG 


>2 ;DONE 2 BYTES? 


1102 


031644 


002761 






BLT 


10$ 


i BR IF NO 


1103 


031646 


005703 






TST 


R3 


iWAS AN ERROR FOUND ? 


1104 


031650 


001402 






BEQ 


30$ 


j BRANCH IF NOT 


1105 


031652 


000241 






CLC 




j CLEAR CAR^Y TO SHOW ERROR 


1106 


031654 


000401 






BR 


50$ 


jAND EXIT 


1107 


031656 


000261 




30$ j 


SEC 




iSHOW GOOD COMPARE 


1108 


031660 


012737 


000002 


002302 50$ j 


MOV 


#2, RAMSIZ 


j SETUP RAMSIZ 



BIO 
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SEQ 0118 



1109 031666 


000207 






RTS 




PC 


j RE TURN 


1110 
















1111 






1 ♦ 










1112 






1 










1113 






I ROUTINE TO 


SETUP PACKET TO WRITE CHARACTERISTICS 


1114 






1 - 










1115 
















1116 031670 






T12SWRT 


J 








1117 031670 








SAVREG 




iSAVE THE REGISTERS 


Hid 031674 


012/01 


030510 




MOV 




#T12PACKET,R1 


iSTART OF THE PACKET 


1119 031700 


012721 


100004 




MOV 




♦100004, (Rl)» 


lURITE CHARACTERISTICS WITH ACK 


1120 031704 


012721 


030320 




MOV 




♦ T120ATA,(Rn> 


I ADDRESS OF CHAR DATA BLOCK 


1121 031710 


005021 






CLR 




CR1)* 


lEXTENDED ADDRESS 


1122 031712 


012721 


OOOOIO 




MOV 




#6.,(R1)» 


iSIZE OF DATA BLOCK IN BYTES 


1123 031716 


012721 


030332 




MOV 




♦T128FR,(R1)* 


lAOORESS OF ME55AGE BUFFER 


1124 031722 


005021 






CLR 




(Rl)* 




1125 031724 


012721 


000016 




MOV 




• 14..CR1)* 


ILENGTH Of MESSAGE BUFFER 


1126 031730 


005021 






CLR 




(Rl)* 




1127 031732 


005011 






CLR 




(Rl) 




1128 031734 


000207 






RTS 




PC 


l RE TURN 


1129 






i * 










1130 
















1131 
1132 
1155 






iROUTINE TO 


SETUP A GET STATUS 


COMMAND PACKET AT CURRENT PACKET ADDRESS 








R5 




HIGH ORDER PACKET AOORESS 


1134 








R4 




LOU ORDER PACKET AOORESS 


1135 








NOTE 


j R3 IS IGNORED IF 


K TENABLE FLAG CLEAR 


1136 
















1137 
















1158 
















1139 031736 






Tl2SETGETj 








1140 031736 








SAVREG 




iSAVE THE REGISTERS 


1141 031742 


010401 






MOV 




R4.R1 


i GET LOW ORDER ADORESS 


1142 031744 


005737 


003134 




TST 




K TENABLE 


? TESTING ABOVE 2»K? 


1143 051750 


001404 






BEQ 




101 


iBR IF NO 


1144 051752 


010300 






MOV 




R5.R0 


iGET HIGH ORDER ADORESS 


1145 031754 


004737 


017316 




JSR 




PC.SETMAP 


, RETURN ADORESS BIASED TO PAR6 IN RO 


1146 031760 


010001 






MOV 




RO»Ri 


iGET AOORESS 


1147 031762 


012700 


000017 


lOli 


MOV 




♦P. GETSTATUS.RO iGET STATUS COMMAND COOE NO IE 


1146 031766 


052700 


100000 




BIS 




#*> . ACK , RO 


iSET ACK 


1149 031772 


010021 






MOV 




RO.(Rl)* 


■STORE G€T STATUS IN PACKET 


1150 031774 


005021 






CLR 




(Rl)* 


I CLEAR LOUSED WORD 


1151 031776 


000207 






RTS 




PC 


jRETURN 


1152 
















1153 
















1154 






I # 










1155 
















1156 
1157 
1156 






jROUTINF TO 


SETUP A CHARACTERISTIC DATA BLOCK AT A TEST AOORESS 
















1159 032000 






U2CHAR 


J 








1160 03?000 








SAVREG 




iSAVE Rl R5 UNTIL NEXT RETURN 


1161 032004 


012700 


050520 




MOV 




♦T120ATA,RO 


iGET T12PACKET DATA POINTER 


1162 032010 


013/01 


30 554 




MOV 




T12L0ADD.R1 


1 ASSUME NOT ABOVE 26K 


1165 032014 


005? 57 


003154 




TST 




K TENABLE 


1 TESTING ABOVE 28K ? 


1164 032020 


001402 






BEQ 




101 


iBR IF NO 


1165 032022 


013701 


030356 




MOV 




T12PAR6 4 R1 


I SET TEST ADDRESS ABOVE 26K 
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CIO 



1166 

1167 

1168 
1169 
1170 
1171 
1172 
1175 



032026 
032030 
032032 
032034 
032036 
032040 

032042 
032042 
032042 



012021 
012021 
012021 
012021 
012021 
000207 



104401 



10lt 



MOV 
MOV 
MOV 
MOV 
MOV 
RTS 

ENDTST 



(RO)^(Rl) 
(R0)*,(R1) 
(R0)*,(R1) 
(R0)*.<R1) 
(R0)*,<R1) 
PC 



I STORE DATA WORD 1 

i STORE DATA WORD 2 

I STORE DATA WORD 3 

i STORE DATA WORD 4 

I STORE DATA WORD 5 
iRETURN 



SEQ 0119 



L 10042s 



TRAP 



CJETST 
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DIG 



SEQ 0120 



1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 

1185 
1186 
1191 
1192 
1193 
11<M 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 



1207 



1208 
1209 
1210 
1211 
1212 
1213 
1214 
1218 
1219 



1220 
1221 
1222 
1223 

1227 
1228 



032044 
032044 



032044 
032050 
032052 
032056 
032062 
032066 
032074 



032074 
032074 
032074 
032076 
032076 
032102 
032104 
032110 
032112 
032116 
032122 
032126 
032132 
03213* 
032136 
032136 
032140 
032142 
032144 
032146 
032146 
032152 
032156 
032160 
032162 
032162 
032164 
032166 
032170 



005737 
001402 
005237 
012700 
004737 
012737 



104402 

012700 
104441 
005737 
001402 
000137 
0O4737 
0O4737 
004737 
105405 
010001 

104435 
00O621 
003652 
012034 

012704 
0O4737 
103405 
010001 

104456 
000622 
005056 
012034 



.SBTTL TEST 4i RAM EXERCISER TEST 
I * 
I 

I THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE ANO 256 
»LOCATIONS) SELECT COOES OF THE WRITE SUBSYSTEM MEMORY COMMANO 
i TO EXERCISE THE CONTROLLER'S RAM MEMORY AND DMA LOGIC 
I 
I - 



002214 

003400 

034503 
016510 
000005 002216 



101 



T15L00P; 



BGNTST 



TST 
BEQ 
INC 
MOV 
JSR 
MOV 



TSTCNT 

101 

SKIPT 

OTSTISID.RO 

PC.TSTSETUP 

05.L00PCNT 



T4 



I CHECK FOR RUN MODE 

|BR, IF NOT ONLY PROGRAM RUN 

tSET SKIP SW 

lASCII MESSAGE TO IDENTIFY TEST 

jOO INITIAL TEST SETUP 

jPERFORM 5 ITERATIONS 



TEST 4, SUBTEST 1 



THIS SUBTEST WRITES THE ADDRESS (8 BITS) INTO THE 
RAM MEMORY SINGLE WORD C8 BITS) MODE 



000000 

003400 

032374 
034522 
034574 
015774 



BGNSUB 



SETPRI OPRIOO 



101 1 



TST 


SKIPT 


BEQ 


10$ 


JMP 


50$ 


JSR 


PC.T15REST 


JSR 


P(\U5RT2 


JSR 


PC.SOFINIT 


BCS 


20$ 


MOV 


R0,R1 


ERROF 


ERRNO*SFIERR,SFIMSG 



033420 
010662 



20$: 



MOV 


OT15PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


23$ 


MOV 


R0.R1 


ERRHRO 


ERRNO.WRTMSG.SFIMSG 



\//////////// BEGIN SUBTEST //////////// 

T4.1: 

TRAP C$BSUB 

lLOWER PRIORITY TO ALLOW INTERRUPTS 

MOV OPRIOO.RO 

TRAP C$SPRI 

I SHOULD WE SKIP THIS SUBTEST 

I BR, IF NOW SKIP REQUIRED 

j SKIP SUBTEST 

i SET COMMAND PACKET 

i SET UP OTHF.R COMMANO PACKET 

iDO INITIALIZE ON CONTROLLER 

I BR IF INIT WAS OK 

jCONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$EROF 
.WORD 401 
.WORD SFIERR 
.WORD SFIMSG 

l SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
. WORD 402 
.WORD WRTMSG 
.WORD SFIMSG 



E10 
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23$: 

25$: 



1229 032172 


012703 


000400 


1230 032176 


U27."!7 


000001 034131 


1231 032204 


112737 


000002 034130 


1232 032212 






1233 032212 


010337 


034132 


1234 032216 


012704 


034120 


1235 032222 


110337 


034134 


1236 032226 


010465 


OOOOOO 


1237 032232 


004757 


016536 


1238 032236 


103407 




1239 032240 


010<X)1 




1243 032242 






032242 


104456 




032244 


000623 




032246 


034136 




032250 


012046 




1244 032252 






032252 


104410 




032254 


000122 




1245 032256 






032256 


104406 




1246 






1247 






1248 032260 


005203 




1249 032262 


020327 


010OO0 


1250 032266 


001351 




1251 032270 


005002 




1252 032272 


005303 




1253 032274 


110337 


034134 


1254 032300 


010337 


034132 


1255 032304 


112737 


000O01 034130 


1256 032312 


010465 


OOOOOO 


1257 032316 


004737 


016336 


1258 032322 


103405 




1259 032324 


010001 




1263 032326 






032326 


104455 




032330 


000624 




032332 


034136 




032334 


012046 




1264 032336 






032336 


104406 




1265 032340 


013701 


033462 


1266 0323*4 


010302 




1267 032346 


120102 




1268 032350 


001404 




1272 032352 






032352 


104456 




032354 


000625 




032356 


03441 r 




032360 


015502 




1273 032362 






032362 


104406 




1274 032364 


005303 




1275 032366 


020327 


000377 


1276 032372 


001340 




1277 032374 







MOV 


0256. ,R3 


MOVB 


•1.T15BS1 


MOVB 


02.T15BSO 


MOV 


R3.T15S2 


MOV 


*T15PK2,R4 


MOVB 


R3,T15S3 


MOV 


R4,TSDB(R5) 


JSR 


PC.CHKTSSR 


BCS 


301 


MOV 


ro.ri 


ERRHRD 


ERRN0.T15SSR.PKTSSR 



30$: 



40$: 



ESCAPE 


SUB 


CKLOOP 




INC 


R3 


CMP 


R3, 010000 


BNE 


25$ 


CLR 


R2 


DEC 


R3 


MOVB 


R3.T15S3 


MOV 


R3,T15S2 


MOVB 


♦1.T15BS0 


MOV 


R4.T3DBCR5) 


JSR 


PC.CHKTSSR 


BCS 


43$ 


MOV 


R0,R1 


ERRDF 


ERRN0,T15SSR,PKTSSR 



SEQ 0121 



43$ 



45$: 



50*1 



CKLOOP 

DEC 
CMP 
BNE 
CKLOOP 



l STARTING ADDRESS FOR RAM WRITE 
i SIZE OF TRANSFER 
I WRITE RAM "COMMAND" 

j ADDRESS FOR RAM 

I WRITE SUBSYS MEM PACKET 

jDATA FOR WRITE (ADDRESS) 

I ISSUE COMMAND 

i WAIT FOR SSR 

I BR, IF NO ERROR 

j ERROR, SAVE TSSR 

I TSSR NOT CORRECT AFTER WRITE SUB MEM 

TRAP C$ERHRD 
.WORD 403 
.WORD T15SSR 
WORD PKTSSR 

iDON'T CONTINUE IF ERROR'ON WRITE 

TRAP C$ESCAPE 
.WORD L 10050 -. 



j SCOPE LOOP 



TRAP 



C$CLP1 



I NEXT ADDRESS 

»ENO OF RAM MEMORY CHECK 

lLOOP TILL ALL RAM WRITTEN 

i CLEAR OUT R2 HIGH BITS 

j SET BACK TO 7777 

j GET DATA PATTERN BACK IN SHAPE 

I ADDRESS FOR RAM READ 

I READ RAM COMMAND 

I SEND OUT PACKET ADDRESS TO CONTR. 

I WAIT FOR READY, NON-AMBIGUOUS 

iBR, IF NO PROBLEM 

i SAVE TSSR 

jTSSR NOT CORRECT 



TRAP 


C$ERDF 


.WORD 


404 


.WORD 


T15SSR 


.WORD 


PKTP' » 



CKLOOP 




j SCOPE LOOP 








TRAP 


C$CLP1 


MOV 


7i5BFR*20,Rl 


iGCT RAM READ DATA 




MOV 


R3,R2 


iSET UP FOR COMPARE 




CMPB 


R1.R2 


iCHECK WITH DATA WRITTEN 




BEQ 


45$ 


j BR IF OK, DATA IN - DATA OUT 




ERRHRD 


ERRN0,T15AM4,EXPBREC 


j WRITTEN DATA NOT - TO READ 








TRAP 


C$ERHRD 






.WORD 


405 






.WORD 


T15AM4 






.WORD 


EXPBREC 



R3 

R3,*255* 

40$ 



i SCOPE LOOP 

TRAP 
iDROP DATA COUNTER (PATTERN) 
lAT BOTTOM YET 
i BR. IF MORE TO CHECK 
j SCOPE LOOP 



C$CLP1 
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ENDSU8 
BGNSU6 



F10 



SEQ 0122 



032574 


104406 




1278 032376 






032376 






032376 


104403 




1279 






1280 






1281 032400 






032400 






032400 


104402 




1282 






1283 






1284 






1285 






1286 






1287 






1288 






1289 






1290 






1291 032402 


004737 


034522 


1292 032406 


004737 


034574 


1293 032412 


004737 


015774 


1294 032416 


103405 




1298 032420 


01OO01 




1299 032422 






032422 


104455 




032424 


000626 




032426 


003652 




032430 


012034 




1300 032432 






1301 032432 


012704 


033420 


1302 032436 


004737 


010662 


1303 032442 


103405 




1307 032444 


010001 




1308 032446 






032446 


104456 




032450 


000627 




032452 


005056 




032454 


012034 




1309 032456 






1310 032456 


112737 


000001 034131 


1311 032464 


012704 


034120 


1312 032470 


012703 


000400 


1313 032474 


112737 


000002 034130 


1314 032502 


105037 


034134 


1315 032506 


010337 


034132 


1316 032512 


010465 


000000 


1317 032516 


004737 


016336 


1318 032522 


103405 




1319 032524 


010001 




1323 032526 






032526 


104456 




032530 


000630 




032532 


034136 




032534 


012046 




1324 032536 






032536 


104406 




1325 







TRAP CICLPl 
l\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10050; 

TRAP CIESU6 



I //////////// BEGIN SUBTEST //////////// 

T4.2: 

TRAP C5BSUB 



TEST 4, SUBTEST 2 



THIS SUBTEST WRITES RAM WITH ALL ZEROS 

THEN WALKS AN ALL ONES WORD DOWN THROUGH MEMORY 



JSR 


PC.T15REST 


JSR 


PC.T15RT2 


JSR 


PC.SOFINIT 


BCS 


20$ 


MOV 


R0.R1 


ERROF 


ERRNO.SFIERR.SFIMSG 



iRESTORE PACKET FOR WRITE CHARA 

1 RESTORE PACKET FOR WRT SIB SYS MEM 

a CO INITIALIZE ON CONTROLLER 

j BR IF INIT WAS OK 

jCONTENTS OF TSSR REGISTER 

I FATAL ERROR TSSR WAS NOT OK 



20$: 



25* s 



30$: 







TRAP 


CIERDF 






.WORD 


406 






♦ WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


«T15PACKET,R4 


» SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


I ISSUE WRITE CHARACTERISTICS 




BCS 


25$ 


j BR, IF COMMAND ISSUED OK 




MOV 


R0.R1 


j SAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


1 WRITE CHARACTERISTIC FAILED 








TRAP 


CIERHRD 






.WORD 


407 






.WORD 


WRTMSG 






.WORD 


SFTM --j 


MOVB 


♦1.T15BS1 


iSET SIZE OF TRANSFER 1 BYTE 




MOV 


*T15PK2,R4 


iSET NEW PACKET ADDRESS 




MOV 


0256. ,R3 


» STARTING ADDRESS IN RAM 




MOVB 


*2,U5BS0 


j WRITE RAM COMMAND 




CLRB 


T15S3 


tSET DATA TO 000 




MOV 


R3.T15S2 


1 ADDRESS TO PACKET DATA AREA 




MOV 


R4.1SDBCR5) 


j SEND OUT PACKET ADDRESS 




JSR 


PC.CHKTSSR 


lUAIT FOR SSR 




BCS 


331 


1 BR. IF NO PROBLEM 




MOV 


R0.R1 


j SAVE TSSR 




ERRHRD 


ERRNO.TISSSR.PKTSSR 


j TSSR NOT CORRECT 





33$: 



CKLOOP 



I SCOPE LOOP 



TRAP 


C$ERHRD 


.WORO 


408 


.WORD 


T15SSR 


.WORD 


PKTSSR 



TRAP 



CJCLP1 



G10 
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SEQ 0123 



1326 






1327 032540 


005203 




1328 032542 


020327 


010000 


1329 032546 


001357 




1330 032550 


005303 




1331 032552 


005002 




1332 032554 


112737 


000001 034130 


1333 032562 


010337 


034132 


1334 032566 


010465 


OOOOOO 


1335 032572 


004737 


016336 


1336 032576 


103405 




1337 032600 


010001 




1341 032602 






032602 


104456 




032604 


000631 




032606 


034136 




032610 


012046 




1342 032612 






032612 


104406 




1343 032614 


013701 


033462 


1344 032620 


120102 




1345 032622 


001404 




1349 032624 






032624 


104456 




032626 


000632 




032630 


034313 




032632 


015502 




1350 032634 






032634 


104406 




1351 032636 


012702 


000377 


1352 032642 


112737 


000002 034130 


1353 032650 


112737 


000377 034134 


1354 032656 


010465 


OOOOOO 


1355 032662 


OC4737 


016336 


1356 032666 


103405 




1357 032670 


010001 




1361 032672 






032672 


104456 




032674 


000633 




032676 


034136 




032700 


012046 




1362 032702 






032702 


104406 




1363 032704 


112737 


000OO1 034130 


1364 032712 


010465 


OOOOOO 


1365 032716 


004737 


016336 


1366 032722 


103405 




1367 032724 


010001 




1371 032726 






032726 


104455 




032730 


000634 




032732 


034136 




032734 


012046 




1372 032736 


013701 


033462 


1375 032742 


120102 




1374 032744 


001404 




1378 032746 









INC 


R3 




CMP 


R3, 010000 




BNE 


30$ 


35$; 


DEC 


R3 


40$ 2 


CLR 


R2 




MOVB 


♦1.T15BS0 




MOV 


R3,T15S2 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




BCS 


41$ 




MOV 


R0,R1 




ERRHRD 


ERRN0.T15SSR, PKTSSR 



41$: 



42$; 



43$: 



44$: 



CKLOOP 

MOV 
CMPB 
BEQ 
ERRHRD 



j NEXT ADDRESS 

I END OF RAM MEMORY CHECK 

»BR, MORE RAM TO GO 

,SET BACK TO 7777 

I SET TO ALL ZEROS 

jREAD RAM COMMAND 

I ADDRESS TO BE READ TO PACKET DATA 

I SEND OUT PACKET ADDRESS 

jWAIT FOR SSR TO SET 

jBR, IF ALL IS WELL 

jSAVE TSSR 

jTSSR NOT CORRECT 



I SCOPE LOOP 



TRAP 


C$ERHRD 


.WORD 


409 


.WORD 


T15SSR 


.WORD 


PKTSSR 



T15BFR»20,R1 

R1.R2 

42$ 

ERRN0.T15AM3.EXPBREC 



TRAP 



C$CLP1 



jPICK UP READ OATA 

j BOTH SHOULD BE 00000000 BINARY 

j BR, ir DATA IS GOOD 

j CHARACTERISTICS DATA NOT CORRECT 









TRAP 


C$ERHftD 








.WORD 


410 








.WORD 


T15AM3 








.WORD 


EXPBREC 


CKLOOP 




\ c .rOf'H LOOPER 


TRAP 


C$CLP1 


MOV 


0000377, R2 


|Ci:T ALL ONES WORD 






MOVB 


♦2,T15BS0 


j WRITE RAM COMMANO 






MOVB 


♦000377, T15S3 


j ALL ONES PATTERN 






MOV 


R4,TSDB(R5) 


I PASS PACKET ADDRESS TO 


CONTR. 




JSR 


PC.CHKTSSR 


jWAIT FOR SSR 






BCS 


43$ 


jBR, IF OK (NO ERROR) 






MOV 


R0.R1 


iSAVE TSSR 






ERRHRD 


ERRN0.T15SSR, PKTSSR 


jTSSR NOT CORRECT 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERHRD 
411 

T15SSR 
PKTSSR 


CKLOOP 




i SCOPE LOOP 


TRAP 


C$CLP1 


MOVB 


*1,T15BS0 


j SET UP FOR RAM READ 






MOV 


R4.TSDBCR5) 


j ISSUE RAM READ 






JSR 


PC.CHKTSSR 


jWAIT FOR SSR TO SET 






HCS 


44$ 


j BR, IF OK (NO ERROR) 






MOV 


R0.R1 


jSA^£ TSSR 






ERRDF 


ERRN0.T15SSR, PKTSSR 


j TSSR NOT CORRECT 


TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
412 
T15S5R 
PKTSSR 



MOV 


T15BFR*20,R1 


CMPB 


R1.R2 


BEQ 


45$ 


ERRHRD 


ERRN0,T15AM2, EXPBREC 



jPICK UP REC'D DATA 
iCHECK WITH DATA WRITTEN 
iBR IF OK, DATA IN • DATA OUT 
jWRITTEN DATA NOT • TO READ 



H10 
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SEQ 0124 



032746 


104456 




032750 


000635 




032752 


034212 




032754 


015502 




1379 032756 






032756 


104406 




1380 032760 


005303 




1381 032762 


020327 


000377 


1382 032766 


001271 




1383 






1384 032770 






032770 






032770 


104403 




1385 






1386 032772 






032772 






032772 


104402 




1387 






1388 






1389 






1390 






1391 






1392 






1393 






1394 






1395 032774 


005737 


003400 


1396 033000 


001402 




1397 033002 


000137 


033376 


1398 033006 


004737 


034522 


1399 033012 


004737 


034574 


1400 033016 


0O4737 


015774 


1401 033022 


103405 




1405 033024 


010001 




1406 033026 






033026 


104455 




033030 


000636 




033032 


003652 




033034 


012034 




1407 033036 






1408 033036 


012704 


033420 


1409 033042 


004737 


010662 


1410 033O46 


103405 




1414 033050 


010001 




1415 033052 






033052 


104456 




033054 


000637 




033056 


005056 




033060 


012034 




1416 033062 






1417 033062 


112737 


000001 034131 


1418 033070 


012704 


034120 


1419 033074 


012703 


000400 


1420 033100 


112737 


000OO2 034130 


1421 033106 


112737 


000377 034134 


1422 033114 


010337 


034132 


1423 033120 


010465 


OOOOOO 


1424 033124 


004737 


016336 



45$: 



CKLOOP 



DEC 


R3 


CMP 


R3,0255. 


BNE 


40$ 



ENDSUB 



BGNSUB 



TRAP C$ERHRD 

.WORD 413 

.WORD T15Ah<> 

.WORD EXPBREC 
j SCOPE LOOP 

TRAP C$CLP1 
jDROP RAM ADDRESS POINTER 
I AT START YET 
I BR, IF MORE RAM TO CHECK 

t\\\\\\\\\\\\\ ENO SUBTEST \\\\\\\\\\\\\ 

L 10051: 

TRAP C$ESU8 

j //////////// BEGIN SUBTEST //////////// 

T4.3: 

TRAP C5BSUB 



TEST 4, SUBTEST 3 



THIS SUBTEST WRITES RAM WITH ALL ONES 

THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 



10$: 



TST 


SKIPT 


BEQ 


10$ 


JMP 


50$ 


JSP 


PC, T15REST 


JSR 


PCT15RT2 


JSR 


PC.SOf'INIT 


BCS 


20$ 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR, SFIMSG 



20$: 



j CHECK RUN MOOE 

»BR. IF NO SKIP 

ISKIP SUBTEST 

jRESTORE PACKET FOR WRITE CHARA 

iRESTORE PACKET FOR WRT SUB SYS MEM 

i DO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

l CONTENTS OF TSSR REGISTER 

j FATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 414 
.WORD SF1ERR 
.WORD SFIMSG 



25$: 



MOV 


*U5PACKET,R4 


iSl^ROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


j ISSUE WRITE CHARACTERISTICS 




BCS 


25$ 


iBR, IF COMMAND ISSUED OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTMSG.SFIMSG 


j WRITE CHARACTERISTIC FAILED 








TRAP 


C$ERHRD 






.WORD 


415 






,WO*D 


WRTMSG 






.WORD 


SFIMSG 



30$: 



MOVB 


•1.T15BS1 


MOV 


♦T15PK2.R4 


MOV 


0256. ,R3 


MOVB 


O2.T15BS0 


MOVB 


♦ 377.U5S3 


MOV 


R3.T15S2 


MOV 


R4,TSDB(R5) 


JSR 


PCCHKTSSR 



iSET SIZE TO 1 BYTE 

i SET NEW PACKET ADDRESS 

I STARTING ADDRESS IN RAM 

I WRITE RAM COMMANO 

jSET DATA TO 377 

l ADDRESS TO PACKET DATA AREA 

jSENO OUT PACKET ADDRESS 

jWAIT FOR SSR 
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TEST 4: RAM EXERCISER TEST 



1425 
1426 
1430 



1431 

1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 
1442 
1443 
1444 
1448 



1449 

1450 

1451 
1452 
1456 



1457 
14 Ml 

1459 
.1460 
1461 
462 
1463 
l<v6 M 



1468 

1469 

1470 
1471 
1472 
1473 
1477 



033130 
033132 
033134 
033134 
033136 
033140 
033142 
033144 
033144 



033146 
033150 
033154 
033156 
033160 
033164 
033172 
033176 
033202 
033206 
033210 
033212 
033212 
033214 
033216 
033220 
033222 
033222 
033224 
033230 
033232 
033234 
033234 
033236 
033240 
033242 
033244 
033250 
033256 
033264 
033270 
* 53274 
C 33276 
033300 
0'.33OO 
J33302 
033304 
033306 
033310 
033310 
033312 
033320 
033324 
033330 
033332 
033334 



103405 
010001 

104456 

000640 
034136 
012046 

104406 



005203 
020327 
001357 
005303 
112702 
112737 
010337 
010465 
004737 
103405 
010001 

104456 
000641 
034136 
012046 

104406 
013701 
120102 
001404 

104456 
000642 
034313 
015502 
012702 
012737 
112737 
010465 
004737 
103405 
010001 

104456 
000643 
034136 
012046 

104406 

112737 
010465 
004737 
103405 
010001 



33$ 



010000 



000377 



35 $ 
40$ 



000001 034130 
034132 
000000 
016336 



411 



BCS 
MOV 
ERRHRD 



CKLOOP 



INC 

CMP 

BNE 

DEC 

MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



033462 



000377 

000002 034130 
000377 034134 
000000 
016336 



42$ 



43$ 



MOV 

MOV 

MOVB 

MOV 

JSR 

BCS 

MOV 

ERRHRD 



CKLOOP 



000001 
000000 
016336 



034130 



33$ 

R0.R1 

ERRN0.T15SSR, PKTSSR 



R3 

R3, 010000 

30$ 

R3 

0377, R2 

01.T15BS0 

R3.T15S2 

R4,TSDBCR5) 

PC.CHKTSSR 

41$ 

R0.R1 

ERRN0.T15SSR, PKTSSR 



MOV 


T15BFR*20,R1 


CMPB 


R1.R2 


BEQ 


42$ 


ERRHRD 


ERRN0.T15AM3.EXPBREC 



000037 7, R2 

02, T15BS0 

OOO0377.T15S3 

R4,TSDB(R5) 

PC.CHKTSSR 

43$ 

R0.R1 

ERRN0.T15SSR, PKTSSR 



MOVB 


O1.U5BS0 


MOV 


R4.TS0BCR5) 


JSR 


PC.CHKTSSR 


BCS 


44$ 


MOV 


R0.R1 


ERRHRD 


ERRN0.T15S5R, PKTSSR 



SEQ 0125 



j BR. IF NO PROBLEM 

I SAVE TSSR 

I TSSR NOT CORRECT 



j SCOPE LOOP 



TRAP 


CfERHRD 


.WORO 


416 


.WORD 


T15SSR 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



jNEXT ADDRESS 

»ENO OF RAM MEMORY CHECK 

}BR. MORE RAM TO GO 

jSET BACK TO 7777 

I SET TO ALL ONES 

I READ RAM COMMAND 

l ADDRESS TO BE READ TO PACKET DATA 

iSEND OUT PACKET ADDRESS 

jWAIT FOR SSR TO SET 

jBR. IF ALL IS WELL 

j SAVE TSSR 

l TSSR NOT CORRECT 



l SCOPE LOOP 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CiERHRD 
417 

T15SSR 
PKTSSR 



jPICK UP READ DATA 

jBOTH SHOULD BE 11111111 BINARY 

jBR. IF DATA IS GOOO 

j CHARACTERISTICS DATA NOT CORRECT 



C$CLP1 



TRAP 
.WORD 
.WORD 
.WORD 

j SET ALL ONES WORD 

l WRITE RAM COMMAND 

lALL ONES PATTERN 

;PASS PACKET ADDRESS TO CONTR. 

iWAIT FOR SSR 

iBR, IF OK (NO ERROR) 

j SAVE TSSR 

I TSSR NOT CORRECT 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
418 
T15AM3 
EXPBREC 



I SCOPE LOOP 

j SET UP FOR RAM READ 
I ISSUE RAM REAO 
jWAIT FOR SSR TO SET 
j BR. IF OK (NO ERROR) 
»SAVE TSSR 
jTSSR NOT CORRECT 



TRAP 



CIERHRD 
419 
T15SSR 
PKTSSR 

CSCLPl 
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J10 



SEQ 0126 



1473 
1479 
1480 
14*4 



1485 

1486 
1487 
1488 
1489 

1490 
1491 



1492 
1493 
1494 

1495 
1496 



1497 
1498 
1499 
1500 
1502 
1504 
1505 
1506 
1507 
1508 
1509 

1510 
1511 
1512 
1513 
1514 
1515 
1516 
1517 
1519 
1521 
15P? 
15*25 
1524 
1525 
1526 
1527 
152& 



033334 
033336 
033340 
033342 
033344 
033350 
033352 
033354 
033354 
033356 
033360 
033362 
033364 
033364 
033366 
033370 
0^3374 

033376 
033376 
033376 
033376 

033400 
033404 
033406 
033412 
035412 
033414 



033420 
033420 
033422 
033424 
033426 
033430 
033430 
03*432 
033434 
033436 
033442 



034120 
034120 
034122 
034124 
034126 



054130 



104456 

000644 

034136 

012046 

013701 033462 

120102 

001404 

104456 
000645 
034212 
015502 

104406 

005303 

020327 000377 

001271 



104403 

004737 016456 

103002 

000137 032074 

104432 
001216 



033420 

100204 
033430 
000000 
000010 

033442 
000000 
000400 
OOOOOO 000000 



034120 

100206 

034130 
OOOOOO 
000006 



44$: 



45$: 



MOV T15BFR*20,R1 

CMPB R1.R2 

BEQ 454 

ERRHRO ERRNO , T 15AM2 , EXPBREC 



CKLOOP 



50$: 



DEC R3 

CMP R3.0255. 

BNE 401 



ENDSUB 



JSR 


PC,TSTLOOP 


BCC 


63$ 


JMP 


T15L00P 


63$: EXIT 


TST 


IlOCAL STORAGE 
J - 


FOR THIS TEST 


.-<.»10 


>6177770 


T15PACKET: 




.WORD 


100204 


.WORD 


T15DATA 


.WORD 





.WORD 


8. 


T15DATA: 




.WORD 


T15BFR 


.WORD 





.WORD 


256. 


.WORD 


0,0 


Tl5BFRs .BLKW 


150. 


j WRITE SUBSYSTEM MEMORY COMMAND PACKET 


.-<. *io 


>6177770 


U3PK2J 




.WORD 


100206 


.WORD 


T15BF2 


.WORD 





.WORD 


6. 



TRAP 
.WORD 
.WORD 
.WORD 
iPICK UP REC'D DATA 
, CHECK WITH DATA WRITTEN 
jBR IF OK, DATA IN « DATA OUT 
I WRITTEN DATA NOT * TO READ 

TRAP 
.WORD 
.WORD 
.WORD 
jSCOPE LOOP 

TRAP 
j DROP RAM ADDRESS POINTER 
>AT START YET 
I BR, IF MORE RAM TO CHECK 



CJERHRD 
420 
T15SSR 
PKTSSR 



CJERHRD 
421 

T15AM2 
EXPBREC 

C*CLP1 



j\\\\\\\\\\\\\ END SUBTEST \\\\\\\\\\\\\ 

L 10052: 

TRAP C$ESUB 



{DO WE NEED TO 
I BRANCH IF NOT 
♦EXECUTE AGAIN 
j ALL DONE THIS 



ITERATE TEST ? 



TEST 



TRAP 
.WORD 



CtEXIT 
L10047 



, COMMAND PACKET FOR TEST 

I WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 

1 ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE Of BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



{WRITE SUB SYS MEM COMMAND. IE AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



T15BF2: 



.EVEN 



K10 
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SEQ 0127 



1529 
1530 
1531 
1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 

i:'>9 

1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 



034130 
034131 
034132 
034134 



034136 
034212 
034313 
034415 



034522 
034522 
034526 
034532 
034536 
034542 
034544 
034550 
034554 
034556 
034562 
034564 
034566 
034572 



034574 
034574 
034600 
034604 
034610 
C34614 
034616 
034622 
034624 
034626 
034630 
034632 
034632 
034632 



000 

000 

000000 

000000 



127 
127 
127 
127 
122 



012701 
012721 
012721 
005021 
012721 
012721 
005021 
012721. 
005021 
005011 
005037 
000207 



012701 
012721 

012721 
005021 
012721 
005021 
005021 
005011 
000207 



104401 



T15BS0t .BYTE 

T15BS1: .BYTE 

T15S2; .WORD 

T15S3; .WORD 



iBSELO AREA 
jBSELl AREA 
jSEl 2 AREA 
j DATA AREA 



* ♦ 

I LOCAL 

I - 



TEXT MESSAGES FOR TEST 



122 
122 
122 
122 
101 



HI 
111 
111 
111 
115 



;cr 



T15AN2 
T15AM3 
T15AM4 
TST15ID: 



.ASCIZ 
,ASCIZ 
.ASCIZ 
, ASCIZ 

.EVEN 



'WRITE SUBSYSTEM MEMORY 

'WRITE SUBSYSTEM MEMORY 

•WRITE SUBSYSTEM MEMORY 

'WRITE SUBSYSTEM MEMORY 

.ASCIZ 'RAM Exerciser' 



Command Not Accepted 1 

COMMAND Failed On All Ones Word Read Back' 
COMMAND Failed On All Zeros Word Read Back 
COMMAND Failed On Address Test' 



ROUTINE 10 RESTORE COMMANO PACKET 
WRITE SUBSYSTEM MEMORY COMMAND 



TO START-UP (DEFAULT) VALUES 



T15REST: 



033420 
100204 
033430 

000010 
033442 

000400 
033442 



T15RT2: 



034120 
100206 
034130 

000006 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

CLR 

CLR 

RTS 

ENDTST 



0T15PACKET,R1 
0100204, CRD* 
*T15DATA,(Rl)t 
(Rl)» 

0T15BFR,(R1)> 

(RD* 

«256.,CRl)f 

CRD* 

CRD 

T15BFR 

PC 



0T15PK2.R1 

0100206 .(Rl)* 

#T15BF2,CR1). 

<R1>» 

+6..CR1)* 

CRD* 

CR1)* 

(«1) 

PC 



i SAVE ThC REGISTERS 

j START OF THE PACKET 

iWRITE SUBSYSTEM MEM. WITH ACK, IE 

j ADDRESS OF CHARAISTICS DATA BLOCK 

j EXTENDED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

l ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 



j CLEAR 1ST LOC IN MESSAGE BUFFER 
I RETURN 



j SAVE THE REGISTERS 

j START OF THE PACKET 

jWfclTE SUBSYSTEM MTM. WITH ACK, IE 

l ADDRESS OF DATA BLOCK 

j EXTENDED ADDRESS 

;SIZE OF DATA BLOCK IN BYTES 



jRETURN 



L10047; 



TRAP 



CSETST 
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L10 



SEQ 0128 



1583 

1384 
11-85 
1^86 
1S87 
1588 
1589 
3 590 
1591 
1592 
1593 
1S94 
1595 
15 >6 
15^7 
1 T >8 
i.599 
1600 
1601 

1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
3617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 



.SBTTL TEST 5: EXTENDED FEATURES SWITCH AND TIMERS A,B 

• TEST DESCRIPTION: 

This test verifies the Invert Extended Features function 
con logically invert the Extended features switch and 
that the internal timers A and B operate correctly. 



TEST STEPS- 
REPEAT FOR LOOPCNT 
BEGIN 

Do Subtest 1 
Do Subtest 2 
END 



- Verify 

- Verify 



Extended Features Switch 
Timers A,B 



034634 

034634 

034634 012700 036712 

034640 004737 016510 

034644 012737 000012 002216 

034652 



T16L00P; 



BGNTST 

MOV 
JSR 
MOV 



OTST16ID.R0 
PC.TSTSETUP 
010. .LOOPCNT 



T5:: 

{ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
j PERFORM 10 ITERATIONS 



.SBTTL TEST 5: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 

♦ 

TEST 5: SUBTEST It 

SU8TEST DESCRIPTION: 

This subtest verifies that the Invert Sense of Extended features 
Switch function (Write Subsystem Memory, Write Misc command) 
operates properly. 

First the state of the Extended Features switch is read in the 
mes»atje packet supplied by the write characteristics command. 
Then, the sense of the switch is logically inverted. 
A Write characteristics command is executed and it is verified 
that the Extended status register (XST4) is returned when 
in Extended mode, ind not returned if not in extended mode. 
The subtest also verifies that specifying a Message Buffer 
address with any of bits 21-19 ,set will cause the command to 
be rejected. 

TEST STEPS: 



BEGIN 



Write to TSSR register to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

IF Extended Features Hardware Switch CLEAR 

THEN 

(♦ Verify Extended Features switch can be Inverted to SET O 
Do Write Subsystem Write Miscellaneous to SET Extended Features 
DO a WRITE CHARACTERISTICS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 



M10 
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SEQ 0129 



1643 
1644 
1645 
1646 
164 7 
1643 
1649 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 
1659 



1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 



1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 



1678 
1679 

1680 
1681 
1682 

1683 
1684 
1685 
1686 
1687 
688 



034652 
034652 
034652 



034654 

034654 
034G60 
034662 
034664 
034664 
034666 
034670 
034672 

034674 
034700 
034704 
034710 
034714 
034 730 
034732 
034734 
034734 
034734 
034 736 
034740 
034742 
054744 
034750 
034750 



034 752 
034756 
034764 
034 766 
034772 



104402 



004737 
103405 
010001 

104455 
000764 
003652 
012034 

004737 
005037 
012704 
004737 

103407 
010001 



104455 
000765 
036762 
012046 
005237 

104406 



015774 



040060 
002222 
040240 
010662 



002222 



012701 040262 

032761 000200 000012 

001402 

000137 035336 

012703 002764 



} 



i 
I 
i 
I 
i 
J 



END 



10$: 



12$: 



15$: 



If 
If 
ELSE 
C* 
Do 
Do 
If 



Data word in controller ram NOT" to 
Message Buffer Data Length NOT- 12, 



word sent Then Print Error 
Then Print Error 



Verify Extended Features switch can be Inverted to CLEAR *) 
Write Subsystem Write Miscellaneous to CLEAR Extended Features, 
a WRITE CHARACTERISTICS without an extended characteristic word 
Message Buffer Data Length NOT- 10, Then Print Error 
END -IF 

(♦ Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR register to soft Initialize the controller 
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21;19> FROM TO 7 
DO a WRITE CHARACTERISTICS with a message address bit<21:19> non-zero 
If TSSR termination code NOT* Function Reject Then Print Error 
END-REPEAT 



BGNSUB 



5$: 








J 


Write 


to TSSR register to soft 
PC.SOFINIT 


in 




JSR 


i 




BCS 


10$ 


} 




MOV 


R0.R1 


? 




ERRDF 


ERRNO.SFIERR.SFIMSG 


J 



Do WRITE CHARACTERISTICS to check 



JSR PC.T16REST 


i 


CLR FATFLG 


t 


MOV *T16PACKET,R4 


J 


JSR PC,WRTCHR 


I 


FORCERROR 12$ 




BCS 15$ 


J 


MOV R0.R1 


I 


NEXT.ERRNO 




ERRDF ERRNO » T16SSR , PKTSSR 


} 



l//////////// BEGIN SUBTEST ////////// 

T5.1: 

TRAP C$BSUB 



itialize the controller 

WRITE TO TSSR TO SOFT INITIALIZE 

BR IF SOFT INIT OKAY 

SAVE CONTENTS OF TSSR 

DEVICE FATAL DURING INIT 

TRAP C$ERDF 
. WORD 500 
.WORD SFIERR 
.WORD SFIMSG 
for Extended Features Switch 

RESTORE PACKET DEFAULTS 

CLEAR FATAL ERROR FLAG 

GET THE ADDRESS OF COMMAND PACKET 

DO WRITE CHARACTERISTICS COMMANO 

jSSOFORCE ERROR IF FORCER -1 

BR IF CARRY SET (GOOD RETURN) 

SAVE CONTENTS OF TSSR 



DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



TRAP 



C$ERDF 
501 

T16SSR 
PKTSSR 



CSCLPl 



20$: 



If Extended Features Hardware 
(♦ Verify Extended Features 
REPEAT FOR TEST PATTERNS IN 

MOV 0T16BFR.R1 

BIT «X2.EXTF,XSr2(Ri:> 

BEQ 20$ 

JMP 200$ 

MOV tfTSTBLKflO, ,R3 



Swi tch Clear then: 
switch can be Inverted 
TSTBLK TABLE 



to SET O 



j MESSAGE BUFFER ADDRESS 



{EXTENDED 
|BR IF YE! 



FEATURES SWITCH CLEAR? 



jSTART OF TEST DATA 



N10 
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SEQ 0130 



3 689 








1690 








1691 


034776 


004737 


040220 


1692 


035002 


012704 


040310 


1693 


035006 


010465 


000000 


lf'4 


035012 


004737 


016336 


U '*5 


035016 






V v. 


035032 


103407 




lo>7 


035034 


010001 




1693 


035036 






1699 


035036 








035036 


104455 






035040 


000766 






035042 


037017 






035044 


012046 




l/(,0 


035046 


005237 


002222 


i"n 


035052 








035052 


10440*1 




1702 








1703 








1704 


035054 


012737 


125252 002312 


1705 


035062 


012704 


040240 


1706 


035066 


012764 


000020 000006 


1707 


035074 


013737 


00231? 040260 


1706 


035102 


004737 


010662 


1709 


035106 






1710 


035122 


103407 




1711 


035124 


OlOOOi 




171? 


035126 






1713 


035126 








035126 


1044 55 






055130 


000767 






035132 


036762 






035134 


012046 




1714 


035136 


005237 


002222 


1715 


035142 








035142 


104406 




1716 








1717 


035144 


016501 


000000 


1718 


035150 


012702 


040262 


1719 


035154 


062702 


000020 


1720 


035160 






1721 


035170 


020102 




1722 


035172 


001404 




1723 


035174 






1724 


035174 








035174 


104456 






035176 


000770 






035200 


037130 






035202 


015474 




1725 


035204 








035204 


104406 




1726 








1727 








1728 


035206 


012704 


040250 


1729 


035212 


004737 


011224 


1730 


035216 







J 



32$ 



40$ 



42$: 



50$: 
* 

♦ 

62$ j 
72$: 
80$: 



Do Write Subsystem Write Miscellaneous to SET Extended Features. 



JSR PC.T16SEXT 

MOV 0T16PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 32$ 

BCS 40$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T162SSR, PKTSSR 



j SETUP PACKET FOR WRITE MISC INVERT 
•GET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

jQQOFORCE ERROR IF FORCER-l 
} BR IF CARRY SET (GOOD RETURN) 
•SAVE CONTENTS OF TSSR 



INC 
CKl OOP 



FATFLG 



{DEVICE FAT/ SSR FAILED TO SET 

TRAP 
.WORD 

.WORD 
.WORD 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



C$ERDF 
502 

T162SSR 
PKTSSR 



SET 
TRAP 



C$CLP1 



DO 
MOV 
MOV 
MOV 
MOV 
JSR 



a WRITE CHARACTERISTICS with an extended characteristic word 



0125252, DATA 
0T16PACKET.R4 
016. ,PKBCNT(R4) 
DATA,T16DATAfX0 
PC, WRICKS 



FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T16SSR , PKTSSR 



{SETUP TEST DATA FOR EXTENDED WORD 
{GET THE ADDRESS OF COMMAND PACKET 
{STORE MESSAGE PACKET SIZE 
i STORK TEST DATA IN EXTENOED WORD 
jDO WrJTE CHARACTERISTICS COMMAND 

jSSOFORCE ERROR IF FORCER-1 
{BR I*" CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WOKD 
.WORD 

.WURD 



j SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 
If the TSBA Address Register NOT- Expected Then Print Error 



C$ERDF 
503 
T16SSR 
PKTSSR 



C$CLP1 



MOV TSBA(R5),R1 

MOV 0T16BFR.R2 

ADD P16..R2 

FORCERROR 72$,N0TSSR 

CMP R1.R2 

BEQ 80$ 

NEXT.ERRNO 

ERRHRD ERRNO, T16TSBA.EXPREC 



{GET TSBA REGISTER CONTENTS 
{START OF THE DATA BUFFER 
{EXPECTED CONTENTS OF TSBA 

jSSOFORCE ERROR IF FORCER'l 
{COMPARE EXPECTED TO RECEIVED 
jERROR IF NOT EQUAL 



{PRINT THE ERROR £ EXPD/RECV 

TRAP C$ERHRD 
. WORD 504 
.WORD T16TSBA 
.WORD EXPREC 
CKLOOP {LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
Compare the controller ram to the extended characteristic word 
If Data word in controller ram NOT- to word sent Then Print Error 
MOV 0T16DATA.R4 {GET CHARACTERISTIC DATA ADDRESS 

JSR PC.CKRAM? jDOES RAM DATA EQUAL DATA SENT? 

FORCERROR 92$ jQSDFORCE ERROR IF F0RCER=1 



Bll 
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1751 
1732 
1733 



1734 

1735 
1736 
1737 

1736 
1739 
1740 
1741 
1742 
1743 



1744 

1745 
1746 
1747 
1746 
1749 



i750 

1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 



1765 
1766 

1767 



035232 
035234 
035234 
035234 
035236 
035240 
035242 
035244 
035244 

035246 
035252 
035256 
035262 
035272 
035274 
035276 
035276 
035276 
035300 
035302 
0353O4 
035306 
035306 

035310 
035314 
035316 
035320 
035320 
035322 
035324 
035326 
03533*) 
035330 
035332 



035336 

035336 
035342 
035346 
035352 
035356 
035372 
035374 
035376 
0353 76 
035376 
035400 
035402 
035404 
035406 
035412 
035412 



103404 



104456 
000771 
004745 
015510 

104406 

012702 040262 
016201 000O02 
012702 000014 

020102 
001404 



104456 
000772 
037232 
015474 

104406 

004737 015774 

103405 

010001 

104455 
000772 
003652 
012034 

104406 

000137 035516 



004737 
012704 
010465 
004737 

103407 
010001 



104455 
000773 
037017 
012046 
005237 

104406 



BCS 100$ 
NEXT, ERRNO 
92* ! ERRHRD ERRNO, PKTRAM.RAMERR 



100$ I CKLOOP 

I If Maaaaoa Buffar Data Length 

HOV #T16BFR.R2 

MOV 2(R2),R1 

MOV #12., R2 

FORCERROR U2I.N0TSSR 

CMP R1,R2 

BEQ 1201 

NEXT ERRNO 
1121: ERRHRD ERRNO, U6LEN.EXPREC 



1201 i CKLOOP 



JSR 


PC.SOFINIT 


BCS 


1251 


MOV 


R0.R1 


ERRDF 


ERRNO. SFIERR.SFIMSG 



1251: 



CKLOOP 

JMP 3005 



SEQ 0131 



jBR IF YES 




j REPORT THF. RAM ERROR(S) 




TRMP 


CIERHRD 


.WORD 


505 


.WORD 


PKTRAH 


.WORD 


RAMERR 


jLOOP ON ERROR, IF FLAG SET 




TRAP 


CICLP1 


NOT- 12, Than Print Error 





iGET MESSAGE BUFFER AOORESS 
iGET RECV DATA FIELD LENGTH 
iGET EXPO DATA FIELD LENGTH 

iBflOfORCE ERROR IF FORCER-l 
, COMPARE EXPECTED TO RECEIVED 
j ERROR IF NOT EQUAL 



I PRINT THE ERROR I 



EXPO/RECV 




TRAP 


CIERHRD 


.WORD 


506 


.WORD 


T16LEN 


.WORD 


EXPREC 


FLAG SET 




TRAP 


CICLP1 



j LOOP ON ERROR, IF 



iWRITE TO TSSR TO SOFT INITIALIZE 
|BR IF SOFT INIT CXAY 
I SAVE CONTENTS OF TSS« 
jDEVICE FATAL DURING IMIT 

TRAP 



jLOOP IF SELECTED 



.WORU 
.WORD 
.WORD 

TRAP 



CIEROf 
506 

SFIERR 
5FIMSG 

CICLPl 



040220 
040310 
000000 
016336 



i (♦ 
2001: 

l 



Verify Entandad Faaturaa awitch can b« Invartad to CLEAR #) 



Do Writa Subayata* Writa 
JSR PL\T16SEXT 
MOV #T16PK2,R4 
MOV R4 $ TS06(R5) 
JSR PC.CHKTSSR 
FORCEUROR 2321 
BCS 2401 
MOV R0.R1 
NEXT. ERRNO 
2321 1 ERRDF ERRNO, T162SSR.PKTSSR 



Miacalla^aooa 
i SETUP 



to CLEAR ExtarvJad Faaturaa. 

PACKET F0« WRITE MISC INVERT 
iGET WRITE SUBSYSTEM COMMANO PACKET 
jSET THE PACKET AOORESS TO EXECUTE 
jWAIT FOR SSR TO 5ET 

iMOfORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



002222 



240li 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR ' LAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



CIEROF 

T162SSR 

PKTSSR 



CICLPl 
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Cll 



SEQ 0X32 



1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 



1777 
1778 

1779 
1780 
1781 
1782 
1783 
1784 
1785 



1786 

1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1600 
1601 
1802 
1603 
1604 
1605 
1606 
1607 
1608 
1809 



1610 



035414 
035420 
035426 
055432 
035446 
035450 
035452 
035452 
035452 
035454 
035456 
035460 
035462 
035466 
035466 

035470 
035474 
035500 
035502 
035504 
0355O4 
035504 
035506 
035510 
035512 
035514 
035514 



035516 

035516 

035524 
035524 
035530 
035536 



035550 
035554 
035560 
035564 
035600 
035602 
035604 
035604 
035604 
035606 
035610 
035612 
035614 



012704 
012/64 
004737 

103407 
010001 



040240 
000016 
010662 



I 



000006 



104455 
000774 
036762 
012046 
005237 002222 

104406 

013701 040264 
012702 000012 
020102 
001404 



104456 
000775 
037232 
015474 

104406 



2421} 



250$: 



262 It 



012737 000001 002312 



012704 040240 

012 764 000016 000006 

013700 002312 

000003 



010037 040252 
010465 000000 
004737 016250 

103407 
010001 



104455 
000776 
036762 
012046 
005237 002222 



i 

3001: 
3201: 
3251: 



3421: 



DO a WRITE CHARACTERISTICS wJ 
MOV *T16PACKET,R4 

MOV ei4,.PKBCNTCR4) 

JSR PC.WRTCHR 

FORCERROR 2421 

BCS 250$ 

MOV R0,R1 

NtXT. ERRNO 
ERROF ERRNO , T 16SSR , PK T SSR 



thout en «xtenj«d cheract -r iet ic word 
iGET THE ADDRESS OF COMMANO PACKET 
I STORE MESSAGE PACKET SIZE 
jDO WRITE CHARACTERISTICS COMMANO 

iSSOFORCE ERROR IF FORCER- 1 
jBR IF CARRY SET (GOOD RETURN) 
,SAVE CONTENTS OF TSSR 



> DEVICE FATAL SSR 



IN r . FATFLG 

CKLOOP 

If Meeeege Buffer Data Length 
MOV U6BFR*2,R1 

MOV •10., R2 

CMP R1.R2 

BEQ 270$ 

NEXT .ERRNO 
ERRHRD ERRNO , T 16LEN , EXPREC 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG 



NOT- 10. Then Print 
>GET RECV DATA FIELD 
I GET EXPO OATA FIELD 
i COMPARE EXPECTED TO 
, ERROR IF NOT EQUAL 



SET 
TRAP 
Error 

LENGTH 
LENGTH 
RECEIVED 



CiERDF 

508 

T16SSR 

PKTSSR 



CICLP1 



270$: CKLOOP 



j PRINT THE ERROR 6 EXPD/RECV 

TRAP 
.WORD 
.WORD 
.WORD 

lLOOP ON ERROR, IF FLAG SET 

TRAP 



CJERHRD 
509 
T16LEN 
EXPREC 

C$CLP1 



(* Verify Function Reject wr>an Maeeage Buffer 21-19 are non-zero O 
Write to TSSR register to eoft initialize the controller 

REPEAT FOR MESSAGE BUFFER ADDRESS bite <21:19> FROM TO 7 

MOV tl.DATA tSTART AT BITS<21: 19>-001 

DO a WRITE CHARACTERISTICS with a meeeage addraee bit<21:19> nonzero 



MOV *T16PACKET,R4 

MOV #14. ,PKBCNT(R4) 

MOV DATA.RO 

.REPT 3 

ASL RO 

ENDR 

MOV R0,U6DATA*2 

MOV R4,TSDB(R5) 

JSR PCWAITF 
FORCERROR 342$ 

BCS 350$ 

MOV RO.Rl 
NEXT, ERRNO 

ERRDF ERMO , T 16SSR , PK TSSR 



I GET THE ADDRESS OF COMMAND PACKET 
I STORE MESSAGE PACKET SIZE 

iGET TEST DATA 

I SHIFT INTO BITS 21:19 

I STORE BUFFER ADDRESS BITS 21:19 
,SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 



INC 



FATFLG 



I SET FATAL ERROR FLAG 



RAP 

.WORD 
.WORD 
♦ WORD 



CIERDF 
510 
T16SSR 
PKTSSR 
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Dll 



X811 035620 






035620 


104406 




1812 






1613 






1814 055622 


016501 


000O02 


1815 055626 


010102 




1816 035650 


042702 


000016 


1817 035634 


052702 


000006 


1818 035640 






1819 035650 


020102 




1820 035652 


001404 




1821 035654 






1B22 035654 






035654 


104456 




035656 


000777 




035660 


037544 




035662 


012046 




1823 035664 






035664 


1044C6 




1824 055666 






1825 035676 


005257 


002512 


1826 035702 


025727 


002512 000007 


1827 035710 


101002 




1828 035712 


000137 


035524 


1829 






1830 035716 






1831 035716 






035716 






035716 


104405 




1832 






1833 035720 


005757 


002222 


1854 035724 


001402 




1835 035726 


004737 


017202 


1856 035732 






1837 






1838 






1839 






1840 






1841 






1842 






1843 






1844 






1845 






1846 






1847 






1848 






1849 






1850 






1851 






1852 






1853 






1854 






1855 






1856 






1857 






1858 






1859 







550* j CKLOOP 



5521; 



If TSSR 

MOV 

MOV 

BIC 

BIS 

FORCERROR 

CMP R1.R2 

BEQ 5601 

NEXT.ERRNO 

ERRHRD ERRNO , T 16RE J , PKTSSR 



5601: CKLOOP 



570$: 



FORCEXIT 
INC DATA 
CMP DATA, 07 
BHI 5701 
JMP 525$ 
END-REPEAT 

ENOSUE 



570$ 



460* j 



TST 


FATrUG 


BEQ 


460$ 


JSR 


PC.CKDROP 



SEQ 0133 



i LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$CLP1 



termination cod* NOT" 

TSSR(R5) t Rl 

R1.R2 

*TERCLS,R2 

♦TSREJ.R2 

552$,NOTSSR 



Function Reject Then Print Error 
,GET RECV TSSR 
tCOPY RECV TSSR 
jCLEAR TC<2j0> EXPO 
jSET EXPO TC<2:0>- FUNCTION REJECT 

iSSOFORCE ERROR IF FORCER-l 
lEXPD EQUAL RECV? 
,BR IF YES 



jDEVICE FATAL SSR 



FAILED TO SET 




TRAP 


CiERHRD 


.WORD 


511 


.WORD 


T16REJ 


.WORD 


PKTSSR 


FLAG SET 




TRAP 


C$CLP1 



j LOOP ON ERROR. IF 



iGET NEXT TST PATTERN 

jDONE ALL DATA? 

iBR IF YES 

1 00 ANOTHER TEST PATTERN 



»//////////// ENO SUBTEST ////////// 

L 10054: 

TRAP C$ESUB 

iAN> FATAL ERRORS ? 

j BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 5: SUBTEST 2: VERIFY TIMERS A,B 



TlvT 5: SUBTEST 2: 

SUBTEST DESCRIPTION: 

This *ubteet verifies that timers A,B can be reset 
and that Timer A ia twice the frequency of Timer B. 
Timer A hat a period of 25 microeeconds and Timer B 

aa a period of 50 microaeconda, The timers ore 
checked at 1, 28, 55, and 78 micoseconds, 

TEST STEPS: 



Write to 
Do WRITE 



TSSR ragtoter to soft 



FO>oter to sort inltieliza the controller 
CHARACTERISTICS to setup a Message Buffer 



Ell 
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1860 








1861 








1862 








1863 








1864 








1865 








1866 








1867 








1868 








1869 








1870 








1871 








1872 








1873 








1874 








1875 








1876 


035732 
035732 








035732 


104402 




1877 








ie78 


035734 






1879 


035734 


004737 


015774 


1880 


035740 


103405 




1881 


035742 


010001 




1882 


035744 








035744 


104455 






035746 


000777 






035750 


003652 






035752 


012034 




1883 








1884 


035754 


004737 


040060 


1885 


035760 


005037 


002222 


1886 


035764 


012704 


040240 


1887 


035770 


012764 


000010 000006 


1888 


035776 


004737 


010662 


1889 


036002 






1890 


036016 


103407 




1891 


036020 


010001 




1892 


036022 






1893 


036022 








036022 


104455 






036024 


OOIOOO 






036026 


036762 






036030 


012046 




1894 


036032 


005237 


002222 


1895 


036036 








036036 


104406 




1896 








1897 








1898 








1899 


036040 


012700 


000001 


1900 


036044 


013701 


036702 


1901 


036050 


004737 


040172 


1902 


036054 


012704 


040310 


1903 


036060 


010465 


000000 


1904 


036064 


004737 


016336 


1905 


036070 







J 
5$: 



10$: 



12*: 



151: 



SEQ 0134 



C* 
Do 
Do 
If 
If 
<♦ 
Do 
If 
If 
Do 
If 
If 
Do 
If 
If 



V*ri 
a Wr 
a Wr 
T ime 
T ime 
V*rt 
a Wr 
Tim* 
T*m# 
a Wr 
Tim* 
T im* 
a Wr 
Tim* 
T im* 



fy 

it* 

it* 
r A 
r B 

fy 
it* 

r A 
r B 

it* 

r A 
r B 
it* 
r A 
r B 



Tim*r* A,0 aft*r RESET TIMER with microsecond delay O 

Control RESET TIMER with 1 microsecond delay 

Sub*y*t*m READ STATUS 

NOT- Th*n Print Error 

NOT- Th*n Print Error 
Timer* A.B aft*r RESET TIMER 

Control RESET TIMER with 28 



NOT- 1 Th*n Print Error 
NOT- 1 Th*n Print Error 
Control RESET TIMER with 
NOT- Th*n Print Error 
NOT- 1 Th*n Print Error 
Control RESET TIMER with 
NOT- 1 Th*n Print Error 
NOT- Then Print Error 



with 28 microsecond delay *) 
microsecond delay 



53 microsecond delay 



78 microsecond delay 



BGNSUB 



»//////////// BEGIN SUBTEST ////////// 

T5.2: 

TRAP C$BSUB 
Write to TSSR reQister to soft initialize the controller 



JSR PCSOflNIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO ♦ SF IERR , SFIMSG 



Do WRITE CHARACTERISTICS to 

JSR PC.T16REST 

CLR FATFLG 

MOV *T16PACKET,R4 

MOV *8,,PKBCNT(R4) 

JSR PCWRTCMR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T16SSR , PKTSSR 



INC 
CKLOOP 



FATFLG 



iMRITE TO TSSR TO SOFT INITIALIZE 

I BR IF SOFT INIT OKAY 

I SAVE CONTENTS OF TSSR 

j DEVICE FATAL DURING INIT 

TRAP C$ERDF 
.WORD 511 
.WORD SFIERR 
.WORD SFIMSG 
setup a M***ag* Buffer 

j RESTORE PACKET DEFAULTS 

I CLEAR FATAL ERROR FLAG 

j GET THE ADORESS OF COMMAND PACKET 

i MESSAGE PACKET SIZE NO EXTEND 

,00 WRITE CHARACTERISTICS COMMANO 

tSSOFORCE ERROR IF FORCER-1 

j BR IF CARRY SET (GOOD RETURN) 

{SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 512 
.WORD T16SSR 
.WORD PKTSSR 

i SET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



(♦ Verify Tim*r* A,B after RESET TIMER with I microsecond delay O 
Do ' " * 



a Writ* Control 

MOV *MS.RSD,RO 

MOV T16D01.R1 

JSR PC.T16WMISC 

MOV *T16PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 



RESET TIMER 



FORCERROR 



32$ 



with 1 microsecond delay 
, RESET TIMER COMMANO 
jl MICROSECOND DELAY 
» SETUP T16PK2 COMMANO PACKET 
,GET WRITE SUBSYSTEM COMMANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jQQOFORCE ERROR IF FORCER -1 



TSV5 - HARDWARE TESTS MACRO M12Q0 20-MAR-84 08 {26 PAGE 27-7 
TEST 5: SUBTEST 2: VERIFY TIMERS A,B 



Fll 



SEQ 0135 



1906 


036104 


103407 




1907 


036106 


010001 




1908 


036110 






1909 


036110 








036110 


104455 






036112 


001001 






036114 


037017 






036116 


012046 




1910 


036120 


005237 


002222 


1911 


036124 








036124 


104406 




1912 








1913 








1914 


036126 


005002 




1915 


036130 


042702 


000010 


1916 


036134 


042702 


000004 


1917 


036140 


012700 


040302 


1918 


036144 


016001 


000002 


1919 


036150 


042701 


177763 


1920 


036154 






1921 


036164 


020201 




1922 


036166 


001404 




1923 


036170 






1924 


036170 








036170 


104456 






036172 


001002 






036174 


037461 






036176 


015552 




1925 


036200 








036200 


104406 




1926 








1927 








1928 


036202 


012700 


000001 


1929 


036206 


013701 


036704 


1930 


036212 


0O4737 


040172 


1931 


036216 


012704 


040310 


1932 


036222 


010465 


000000 


1933 


036226 


004737 


016336 


1934 


036232 






1935 


036246 


103407 




1936 


036250 


010001 




1937 


036252 






1938 


036252 








036252 


104455 






036254 


OO1O03 






036256 


037017 






036260 


012046 




1939 


036262 


005237 


002222 


1940 


036266 








036266 


104406 




1941 








1942 








1943 


036270 


005002 




1944 


036272 


052702 


000010 


1945 


036276 


052702 


000004 


1946 


036302 


012700 


04030? 


1947 


036306 


016001 


000002 



32$: 



40$: 

i 
J 



72$ j 



80$; 



112*: 



1201: 



BCS 40$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 162SSR , PKTSSR 



jBR IF CARRY SET (GOOO RETURN) 
» SAVE CONTENTS OF TSSR 

» DEVICE FATAL SSR FAILED TO SET 









TRAP 


CtERDF 








.WORD 


513 








.WORD 


T162SSR 








.WORD 


PKTSSR 


INC FATFLG 




1 SET FATAL ERROR FLAG 






CKLOOP 




I LOOP ON ERROR, IF FLAG 


SET 
TRAP 


C$CLP1 


If Timer A NOT- Then Print 


Ei 


rror 






If Timer B NOT- Then Print 


Ei 


rror 






CLR R2 




iINIT EXPO 






BIC *S2.ATIM,R2 




j TIMER A EXPD-0 






BIC 4S2.BTIM.R2 




jTIMER B EXPD-0 






MOV #T16BFSTA,R0 




iGET RECV READ STATUS 






MOV 2CR0),R1 




jGET RECV BYTE 2 






BIC *tC<S2.ATIM!S2.BTIM>,l 


Rl 


jSAVE TIMER A:B RECV ONLY 




FORCERROR 72I.N0TSSR 




(S80 






CMP R2.R1 




jEXPD EQUAL RECV? 






BEQ 801 




,BR IF YES 






NEXT. ERRNO 










ERRHRD ERRNO, T16T01 , TIMEXP 




l REPORT ERROR 


TRAP 
.WORD 
.WORD 
.WORD 


CIERMRD 
514 
T16T01 
TIMEXP 


CKLOOP 




jLOOP ON ERROR, IF FLAG 


SET 
TRAP 


C*CLP1 



Do a Write Control RESET TIMER w 

MOV #MS.RSD,R0 

MOV T 16028, Rl 

JSR PC,T16WMISC 

MOV *T16PK2.R4 

MOV R4.TSD6CR5) 

JSR PCCHKTSSR 

FORCERROR 112$ 

BCS 120$ 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO, T162SSR, PKTSSR 



ith 28 mlcroeecond delay 

jRESET TIMER COMMAND 

i 28 MICROSECOND DELAY 

i SETUP T16PK2 COMMANO PACKET 

jGET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER-1 
;9R IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


515 


.WORD 


T162SSR 


.WORD 


PKTSSR 



INC 


FATFLG 






CKLOOP 








If Timer A NOT* 1 Then 


Print 


Er 


If Timer B NOT- 1 Then 


Print 


Er 


CLR 


R2 






BIS 


0S2.ATIM.R2 






BIS 


0S2.BTIM.R2 






MOV 


*U6BFSTH,R0 






MOV 


2CR0),R1 







j SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP 
ror 
ror 

iINIT EXPO 
jTIMER A EXPD-1 
, TIMER B EXPD-1 
jGET RECV READ STATUS 
iGET RECV BYTE 2 



C$CLP1 
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Gil 



SEQ 0136 



1948 


036312 


042701 


177763 


1949 


036316 






1950 


036326 


020201 




1951 


036330 


001404 




1952 


036332 






1953 


036332 








036332 


104456 






036334 


001004 






036336 


037560 






036340 


015552 




1954 


036342 








036342 


104406 




1955 








1956 








1957 


036344 


012700 


000001 


1958 


036350 


013701 


036706 


1959 


036354 


004737 


040172 


1960 


036360 


012704 


040310 


1961 


036364 


010465 


000000 


1962 


036370 


004737 


016336 


1963 


036374 






1964 


036410 


105407 




1965 


056412 


010001 




1966 


036414 






1967 


036414 








036414 


104455 






036416 


001005 






036420 


037017 






^3o422 


012046 




1968 


036424 


005237 


002222 


1969 


036430 








036430 


104406 




1970 








1971 








1972 


036432 


005002 




1973 


036434 


042702 


000010 


1974 


036440 


052702 


000004 


1975 


036444 


012700 


040302 


1976 


036450 


016001 


000002 


1977 


036454 


042701 


177763 


1978 


036460 






1979 


036470 


020201 




1980 


036472 


001404 




1981 


036474 






1982 


036474 








036474 


104456 






036476 


001006 






036500 


037660 






036502 


015552 




1983 


036504 








036504 


104406 




1984 








1985 


036506 


012700 


000001 


1986 


036512 


013701 


036710 


1987 


036516 


004 7 37 


040172 


1988 


036522 


012704 


040310 


1989 


036526 


010465 


000000 



172*: 



220$: 

{ 
: 



272$: 

280$: 

J 



BIC OtC<S2.ATIM!S2.BTIM>,Rl 

FORCERROR 172$ ,NOTSSR 

CMP R2,R1 

BEQ 180$ 

NEXT.ERRNO 

ERRHRD ERRNO , T16T28 , TIMEXP 



180$: CKLOOP 



; Do a Writ* Control RESET TIMER 

MOV *MS.RSD,RO 

MOV T16D53.R1 

JSR PC.T16WMISC 

MOV 0T16PK2.R4 

MOV R4,TSDB(R5) 

JSR PC,CHKTSSR 

FORCERROR 212$ 

BCS 220$ 

MOV R0.R1 

NEXT.ERRNO 
212$: ERRDF ERRNO, U62SSR.PKTSSR 



jSAVE TIMER A:B RECV ONLY 

1 880 

jEXPD EQUAL RECV? 

jBR IF YES 

I REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



with 53 microsecond delay 
» RESET TIMER COMMAND 
i 53 MICROSECOND DELAY 
I SETUP T16PK2 COMMANO PACKET 
I GET WRITE SUBSYSTEM COMMANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
tWAIT FOR SSR TO SET 

I88DF0RCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



TRAP 


C$ERHRD 


.WORD 


516 


.WORD 


T16T28 


.WORD 


TIMEXP 


SET 




TRAP 


C$CLP1 



i DEVICE FATAL SSR 



INC 


FATFLG 






CKLOOP 








If Timer A NOT- Then 


Print 


E 


If Timer NOT- 1 Then 


Print 


E 


CLR 


R2 






BIC 


♦S2.ATIM.R2 






BIS 


*S2.BTIM,R2 






MOV 


#T16BFSTA,R0 






MOV 


2CR0),R1 






BIC 


*tC<S2,ATIM!S2.l 


3TIM>,I 


u 


FORCERROR 272$ .NOTSSR 




CMP 


R2.R1 






BEQ 


280$ 






NEXT.ERRNO 






ERRHRD 


ERRNO, T16T53. TIMEXP 





I SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



C$ERDF 
517 

T162SSR 
PKTSSR 



C$CLP1 



Error 
Error 

tINIT EXPD 

i TIMER A EXPD-0 

I TIMER B EXPD-1 

j GET RECV READ STATUS 

jGET RECV BYTE 2 

j SAVE TIMER A:B RECV ONLY 

j EXPD EQUAL RECV? 
}BR IF YES 

I REPORT ERROR 



CKLOOP 

Do a Write Control RESET TIMER 

MOV GMS.RSD.RO 

MOV T16D78,R1 

wISR PC.T16WMISC 

MOV 0T16PK2.R4 

MOV R4,TSDB(R5) 



TRAP 


C$ERHRD 


.WORD 


518 


.WORD 


T16T53 


.WORD 


TIMEXP 


SET 




TRAP 


C$CLP1 



tLOOP ON ERROR, IF FLAG 



with 78 microeecond delay 
j RESET TIMER COMMANO 
I 78 MICROSECONO DELAY 
j SETUP T16PK2 COMMANO PACKET 
jGET URITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 



Hll 
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SEQ 0137 



1990 
1991 
1992 
1993 
1994 
1995 



1996 
1997 

1998 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 



2011 

2012 
2013 



2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 



2025 
2026 

2027 
2028 
2029 
2030 
2031 
203H 



036532 
036536 
036552 
036554 
036556 
036556 
036556 
036560 
036562 
036564 
036566 
036572 
036572 



036574 
036576 
036602 
036606 
036612 
036616 
036622 
036632 
036634 
036636 
036636 
036636 
036640 
036642 
036644 
036646 
036646 

036650 
036650 
036650 

036652 
036656 
036660 
036664 

036670 
036672 
036676 



036676 
036676 
036700 



036702 
036704 
036706 



004737 016336 

103407 
010001 



104455 
001007 
037017 
012046 
005237 



104406 



005002 
052702 
042702 
012700 
016001 
042701 

020201 
001404 



104456 
001010 
037760 
015552 

104406 



104403 

005737 
001402 
004737 
004737 
103002 
000137 



104432 
001524 



000001 
000040 
000076 



312$: 



JSR PC.CHKTSSR 

FORCERROR 312$ 

BCS 320$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO , T 162SSR f PKTSSR 



jWAIT FOR SSR TO SET 

jSQOFORCE ERROR IF FORCER-1 
}BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



002222 



TRAP 


CIERDF 


.WORD 


519 


.WORD 


T162SSR 


.WORD 


PKTSSR 



320$; 

J 
i 



000010 
000004 
040302 
000002 
177763 



372$ J 



380$: CKLOOP 



ENDSUB 



INC 


FATFLG 




CKLOOP 






If Timer A NOT- 1 Then 


Print 


If Timer B NOT- Then 


Print 


CLR 


R2 




BIS 


*S2.ATIM,R2 




BIC 


*S2.BTIM,R2 




MOV 


*T16BFSTA,R0 




MOV 


2(R0),R1 




BIC 


*tC<S2,ATIM!S2.l 


3TIM>, 


FORCERROR 372$,N0TSSR 


CMP 


R2.R1 




BEQ 


380$ 




NEXT. ERRNO 




ERRHRD 


ERRNO, T16T78.TIMEXP 



j SET FATAL ERROR FLAG 

tLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
Error 
Error 

iINIT fe/PD 

I TIMER A EXPD-1 

j TIMER B EXPD-0 

jGET RECV READ STATUS 

iGET RECV BYTE 2 
Rl j SAVE TIMER A:B RECV ONLY 

lEXPD EQUAL RECV? 
j BR IF YES 

i REPORT ERROR 

TRAP C$ERHRD 

. WORD 520 

.WORD T16T78 

.WORD TIMEXP 

j LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 



;//////////// 



END SUBTEST ////////// 
L 10055: 

TRAP C$ESU6 



002222 

017202 
016456 

034652 





TST 


FATFLG 




BEQ 


460$ 




JSR 


PC.CKDROP 


460$: 


JSR 


PC.TSTLOOP 




BCC 


465$ 




JMP 


T16L00P 


465$: 







EXIT 



TST 



tANY FATAL ERRORS ? 

(BRANCH IF NOT 

} TRY TO DROP THE UNIT 

j SHOULD WE DO ITERATIONS? 

jBR IF NO 

{LOOP UNTIL ITERATIONS DONE 



l////////// EXIT TEST ////////// 

TRAP C$EXIT 
.WORD L10053 



tLOCAL STORAGE FOR THIS TEST 



T16D01: 


.WORD 


1 


T16D28: 


.WORD 


40 


T16D53: 


.WORD 


76 



il MICROSECONO DELAY (ACTUALLY .8 MIC) 
i28 MICROSECOND DELAY (.8 MICROS PER) 
j 53 MICROSECOND 



Ill 
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SEQ 0138 



2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 

2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
20€, 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2078 
2079 
2060 
2081 
2082 
2083 
2084 
2085 
2086 
2087 
2088 
2089 



036710 000142 



036712 
036762 
037017 
037063 
037130 
037232 
037344 

037461 
037560 
037660 
037760 



040060 
040060 
040064 
040070 
040074 
040076 
040102 
040106 
040110 
040114 
040116 
040120 
040124 



040126 
040126 
040132 
040136 
040142 
040144 
040146 
040150 



040152 
040152 
040156 
040162 
040166 
040170 



105 
127 
127 
127 
102 
104 
124 

124 
124 
124 
124 



012700 
012720 
012720 
005020 
012720 
012720 
005020 
012720 
005020 
0050 JO 
005037 
000207 



012701 
012702 
105021 
005302 
003375 
000207 



004737 
012700 
112720 
105010 
000207 



170 
122 
122 
122 
165 
141 
123 

151 
151 
151 
151 



164 

111 
111 
111 
163 
164 
123 

155 
155 
155 

155 



040240 
100004 
040250 

000012 
040262 

000024 
040262 



040262 
000026 



040126 
040320 
000005 



T16D78t 

} LOCAL TEXT 
J - 



.WORD 142 
MESSAGES FOR TEST 



1 78 MICROSECOND 



TST16I0J 
T16SSR: .ASCIZ 
T162SSR;.ASCIZ 
T163SSRs .ASCIZ 
U6TSBA:, ASCIZ 
T16LEN:. ASCIZ 
T16REJ:, ASCIZ 

T16T01:. ASCIZ 
T16T28:. ASCIZ 
T16T53:. ASCIZ 
T16T78:. ASCIZ 
.EVEN 

i SET DEFAULT PACKET 
T16REST; 



, ASCIZ ' Extended Features Switch and Timers A,B' 

'WRITE CHARACTERISTICS Failed* 

'WRITE SUBSYSTEM (Writ* Misc) Failed' 

'WRITE SUBSYSTEM (Read Statue) Failed' 

'Bue Address Register CTSBA) Incorrect after Write Characteristics' 

'Data Field Length in Message Buffer Incorrect after Write Characteristics' 

'TSSR Function Reject Not Returned When Non-Ex i stent Buffer Address Sped fie 




MOV *T 16PACKET.ro 

MOV $100004. CRO)* 

MOV 0T16DATA,(R0)* 

CLR CRO)» 

MOV *10.,(R0)» 

MOV *T16BFR,(R0)t 

CLR (RO)* 

MOV #20.,(R0)» 

CLR (RO)* 

CLR CRO) 

CLR T16BFR 

RTS PC 



I PACKET ADDRESS 

{WRITE CHARACTERISTICS WITH ACK 

j ADDRESS OF CHAR DATA BLOCK 

{EXTENOED ADDRESS 

I SIZE OF MESSAGE PACKET 

{MESSAGE BUFFER ADDRESS 

{CLEAR EXTENOED BUFFER ADDRESS 

jLENGTH OF MESSAGE BUFFER 

{CLEAR ESS,EN6,EAI,ERI 

{CLEAR EXTENOED FEATURES WORD 

{CLEAR 1ST LOCATION IN MESSAGE BUFFER 



t CLEAR MESSAGE BUFFER 

T16CLRBUF: 

SAVREG 

MOV 

MOV 
10$ { CLRB 

DEC 

BGT 

RTS 



0T16BFR.R1 

AT16BEND-T16BFR.R2 

(Rl)» 

R2 

10$ 

PC 



{SAVE R1-R5 UNTIL NEXT RETURN 

{GET MESSAGE BUFFER ADDRESS 

{SIZE OF MESSAGE BUFFER IN BYTES 

{CLEAR A BYTE 

{DONE? 

{BR IF NO 

{RETURN 



J ♦ 

; SETUP T16PK2 PACKET FOR READ STATUS 

T16SRD: 

JSR PC.T16CLRBUF 

MOV 0T16DT2.R0 

MOVB OPW.RDSTATUS.(RO)* 

CLRB CRO) 

RTS PC 



{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

{CLEAR 8SEL1 

{RETURN 



Jll 



TSV5 - HARDWARE TESTS MACRO M1200 20-MAR-84 08; 26 PAGE 27-11 
TEST 5: SUBTEST 2- VERIFY TIMERS A,B 



SEQ 0139 



2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 

2098 

2099 

2100 

2101 

2102 

2103 

2104 

2105 

2106 

2107 

2108 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2119 

2121 

2122 

2123 

2124 

2125 

2126 

2127 

2128 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 



040172 
040172 
040176 

040202 
040206 
040212 
0402.14 
040216 



040220 
040220 
040224 
040230 
040234 



040240 
040240 
040242 
040244 
040246 

040250 
040250 
040252 
040254 
040256 
040260 



040262 
040262 
040264 
040266 
040270 
040272 
040274 
040276 
040300 



040240 



10O004 

040250 
000000 
0OO012 



040262 
000000 
00O024 
000000 

0000^0 



SETUP T16PK2 PACKET FOR WRITE MISC, 



004737 040126 
012702 040320 
112722 000010 
110022 
110112 
000207 



012700 040320 

112720 000010 

312710 000200 
000207 



INPUT i 

RO 
Rl 

U6WMISC: 

SAVREG 

JSR 

MOV 

MOVB 

MOVB 

MOVB 

RTS 

i ♦ 



CONTAINS WRITE MISC FUNCTION CODE (BSEL1) 
CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 



PC.T16CLRBUF 

0T16DT2.R2 

*PW.WMISC,(R2)* 

R0.CP2)* 

R1.CR2) 

PC 



l SAVE R1-R5 UNITL NEXT RETURN 

j CLEAR MESSAGE BUFFER 

j WRITE SUBSYSTEM DAT* BUFFER 

, STORE WRITE MISCELLmNEOUS IN BSELO 

j STORE WRITE MISC CODE IN BSEL1 

j STORE DELAY (RESET TIMER) IN BSEL2 

{RETURN 



i SETUP T16PK2 PACKET FOR WRITE MISC, INVERT EXTENDED FEATURES SWITCH 



T16SEXT : 



MOV *T16DT2,R0 

MOVB OPW.WMISC(RO)* 

MOVB *MS.EXT,(RO) 

RTS PC 



.-<.*10>6177770 
I 
j WRITE CHARACTERISTICS COMMAND PACKET 

i 



{WRITE SUBSYSTEM DATA BUFFER 

l STORE WRITE MISCELLANEOUS IN BSELO 

{STORE INVERT EXTENDED FEATURES IN BSEL1 

{RETURN 



T16PACKET- 

.WORD 
.WORD 
.WORD 
.WORD 



T16DATA: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



j MESSAGE BUFFER 



100004 

T16DATA 



10. 



U6BFR 



20. 







000000 
000000 
000000 

oooooo 

000000 

oooooo 
oooooo 
oooooo 



T16BFRj 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





. WORD 





.WORD 





.WORD 






{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND. WITH ACK 

{ADDRESS OF CHARACTERISTICS BLOCK 

{MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFFR 
jESS.ENB.EAI.ERI 
{EXTENDED FEATURES WORD 



{BEGIN MESSAGE BUFFER 

{MESSAGE TYPE 

{DATA FIELD LENGTH 

jRBPCR 

tXSTO 

{XST1 

I-XST2 

»XST3 

}XST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 



Kll 
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2149 


040302 




2150 


040310 




2151 






2152 






2155 






2157 


'MO'il* 




2153 


04G?j J 


100006 


2151 


" 7 ' .i 


04C320 


2160 


040. i ; 


000000 


2161 


040 i-i 6 


000012 


2162 








0403//0 




2164 


0*03^0 


000 


2165 


040521 


000 


2166 


0403.22 


000000 


2167 


040 i24 




2168 






2169 






2170 


040424 
040424 






040424 


104401 



SEQ 0140 



T16BFSTA: .BLKB 6. 

T16BEN0J 

i 

{WRITE SUBSYSTEM READ STATUS COMMAND PACKET 

T16PK2: 



l READ STATUS AND WRITE FIFO BUFFER 
{END OF MESSAGE BUFFER 



T16DT2: 



.WORD 
.WORD 
.WORD 
.WORD 



.BYTE 
.BYTE 
.WORD 
.BLKB 



ENDTST 



P.WrtTSUBIP.ACK 

T16DT2 



10. 






64 



{WRITE SUBSYSTEM WITH ACK 
»LOW ADDRESS OF DATA BLOCK 
{HIGH ADDRESS OF DATA BLOCK 
{MINIMUM MESSAGE PACKET SIZE 

{DATA BLOCK 

{BSELO 

{BSEL1 

{SEL2 

jWRITE FIFO DATA OUTPUT BUFFER 



L10053: 



TRAP 



CSETST 
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Lll 



SEQ 0141 



2172 
2173 

2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 

2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 



.SBTTL TEST 6s FIFO EXERCISER 



♦ ♦ 



TEST DESCRIPTION: 



This test uses the Write Subsystem Memory command to 
verify the controller's FIFO and associated status and 
control logic. 



TEST STEPS 



REPEAT FOR LOOPCNT 




BEGIN 




Do Subtest 1 


- FIFO 


Do Subtest 2 


- FIFO 


Do Subtest 3 


• FIFO 


Do Subtest 4 


- FIFO 


Do Subtest 5 


~ FIFO 


Do Subtest 6 


- FIFO 



ENID 



Initialize status test 
Write Single Byte test 
Write Multiple Bytes test 
Verify ILW Status test 
Input Ready test 
Verify Reset FIFO test 



040426 

040426 

040426 012700 046656 

040432 004737 016510 

040436 012737 000012 0Q221& 

040444 004737 017274 

040450 005037 003134 

040454 



8GNTST 



MOV 


0TST17ID.R0 


JSR 


PCTSTSETUP 


MOV 


♦10. , LOOPCNT 


JSR 


PC.KTOFF 


CLR 


KTENABLE 


T17L00P; 





.6:: 

i ASCII MESSAGE TO IDENTIFY TEST 
»D0 INITIAL TEST SETUP 
j PERFORM 10 ITERATIONS 
;SHUT OFF MEMORY MANAGEMENT 
j REALLY SHUT DOWN KT-ll 



.SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 

TEST 6: SUBTEST 1: 

SUBTEST DESCRIPTION; 

This test verifies, by using the Read Status select code, 
that the FIFO status is in the correct initial state after 
the controller is initialized (Input Ready TRUE, 
Output Ready and Data In Miss FALSE). These status 
signals are checked by the controller's self -test 
sequence i so this subtest is actually more of a partial 
check of the Read Status function than the FIFO status, 

TEST STEPS ; 



BEGIN 
Write 



to TSSR to soft initialize 



END 



Do a WRITE CHARACTERISTICS to setup a message buffer 

Do a WRITE SUBSYSTEM Read Status 

If Input Ready NOT-1 Then Print Error 

If Output Ready NOT-0 1h«n Print Error 

If Data In Miss NQT»0 Then Print Error 



Mil 
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SEQ 0142 



2232 








2233 


040454 
040454 








040454 


104402 




2234 








2235 








2236 


040456 






2237 


040456 


004737 


015774 


2238 


040462 


103405 




2239 


040464 


010001 




2240 


040466 








040466 


104455 






0404~>0 


001130 






0404 72 


003652 






040474 


012034 




2241 








2242 


040476 


005037 


002222 


2243 


040502 


012704 


050250 


2244 


040506 


004737 


010662 


2245 


040512 






2246 


040526 


103407 




2247 


040530 


010001 




2248 


040532 






2249 


040532 








040532 


104455 






040534 


001131 






040536 


046675 






040540 


012046 




2250 


040542 


005237 


002222 


2251 


040546 








040546 


104406 




2252 








2253 








2254 


040550 


004737 


050034 


2255 


040554 


012704 


050420 


2256 


040560 


010465 


000000 


2257 


040564 


004737 


016336 


2258 


040570 






2259 


040604 


103407 




2260 


040606 


010001 




2261 


040610 






2262 


040610 








040610 


104455 






040612 


001132 






040614 


046776 






040616 


012046 




2263 


040620 


005237 


002222 


2264 


040624 








040624 


104406 




2265 








2266 


040626 


004737 


050216 


2267 


040632 


012701 


046452 


2268 


040636 


012702 


050312 


2269 


040642 


012221 




2270 


040644 


011211 




??n 


040646 


052711 


OC002G 


2272 


040652 


0427X1 


000040 



; -- 



j 

5$ 



BGNSUB 



10$: 



42$! 



50$ j 



l//////////// BEGIN SUBTEST ////////// 

T6.1: 

TRAP C$8SUB 



JSR 


PC.SOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



Write to TSSR register to soft Initialize the controller 

, WRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
jSAVE CONTENTS OF TSSR 
} DEVICE FATAL DURING INIT 

TRAP CJERDF 
.WORD 600 
.WORD SFIERR 
.WORD SFIMSG 
setup a message buffer 
t CLEAR FATAL ERROR FLAG 
{GET THE ADDRESS OF COMMAND PACKET 
j 00 WRITE CHARACTERISTICS COMMAND 

jblSOFORCE ERROR IF FORCER-l 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV *T17PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T17SSR , PKTSSR 



} DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
WORD 
.WORD 
.WORD 



62$: 



INC 


FATFLG 




CKLOOP 








Do a Write 


Subsystem 
,T17SRD 


READ ST, 


JSR 


PC, 




MOV 


0T17PK2.R4 




MOV 


R4 ( 


,TSDBCR5) 




JSR 


PC, 


.CHKTSSR 




FORCERROR 


62$ 




BCS 


701 


\ 




MOV 


RO, 


,R1 




NEXT.ERRNO 






ERRDF 


ERRN0.T173SSR 


!, PKTSSR 



{SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
601 

T17SSR 
PKTSSR 



C$CLP1 



{SETUP PACKET FOR READ STATUS 
jGFT WRITE SUBS f STEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER *1 
sBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSM 

, DEVICE FATAL SSR FAILED TO SET 





INC 




FATFLG 


701 j 


CKLOOP 




} 


Set 


WORDS 0-7 of expd . 




JSR 




PC.T17SETEXP 




MOV 




0T17EXSTA.R1 




MOV 




*T178FSTA t R2 




MOV 




(R2)*,(R1)* 




MOV 




(R2).(R1) 




BIS 




0S2. INRDY.C.91) 




BIG 




flSS.QUTROY.CRl) 



TRAP 


C$ERDF 


.WORD 


602 


.WORD 


T173SSR 


.WORD 


PKTSSR 


jSET FATAL ERROR FLAG 




,LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



of cxpd message buffer - to rtcv sine* not testing 

jSET WORDS 0-7 EXPD-RECV 
,GET EXPECTED READ STATUS 
,GET RECV READ STATUS 
j SET EXPD WORD 08 - RECV TFMP 
jSET EXPD WORD 09 - RECV TEMP 
j SET EXP INPUT READY- TRUL 
j SET &XP OUTPUT R&ADY* FALSE. 
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Nil 



SEQ 0143 



2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 



2285 

2286 
2287 



2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2507 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2310 
2316 
2317 
2318 
2319 
2320 
2321 
2322 



040656 042711 000200 



040662 
040664 
040670 
040674 
040700 
040704 
040714 
040716 
040716 
040716 
040720 
040722 
040724 
040726 
040726 

040730 
040730 
040730 

040732 
040736 
C40740 
040744 



005000 
012701 
C12702 
012703 
004737 

103404 



104456 
001133 
047215 
012350 

104406 



104403 

005737 
001402 
004737 



050272 
046432 
000024 
011500 



82$: 



90$; 



BIC OSS. DIM, (Rl) 

If Input Ready NOT-1 then Prin 

If Output Ready NOT-0 or Data 

CLR RO 

MOV *T17BFR,R1 

MOV *T17EXP,R2 

MOV 420. ,R3 

JSR PC.CKMSG2 

FORCERROR 82$,N0TSSR 

BCS 90$ 

NEXT.ERRNO 

ERRHRD ERRNO , T17 1CMP , MSGSTAT 



CKLOOP 



j SET EXP DATA IN MISS - FALSE 
t Error 
in Mies NOT-0 Then Print Error 

jHIGH RECV ADDRESS FOR CKMSG2 

j LOW RECV ADDRESS FOR CKMSG2 

{EXPO ADDRESS 

{NUMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV? 

}BR IF YES 



I REPORT ERROR 



jLOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
60^ 

T171CMP 
MSGSTAT 

C$CLP1. 



ENDSUfl 



002222 
017202 



160$ 



♦ + 
TEST 



TST 


FATFLG 


BEQ 


160$ 


JSR 


PCCKDROP 



}//////////// END SUBTEST ////////// 

L 1005 7: 

TRAP C$ESUB 

j ANY FATAL ERRORS ? 

j BRANCH IF NOT 

jTRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 



6: SUBTEST 2: 



SUBTEST DESCRIPTION: 

This subtest verifies the ability of the FIFO to correctly 
pass a single data byte from input to output. For each 
of 256 data values (0-377 octal) the following is done: 
1. Initial FIFO status is checked 

The Write FIFO function, specifying a count of 
one byte to be written is executed, 
Read Status is executed and FIFO status is checked. 
Read FIrO is executed and the data and final status 
is checked. 



2. 

3. 
4. 



TEST STEPS: 



BEGIN 



Write to TSSR to soft initialize 

Do a WRITE CHARACTERISTICS to setup a message buffer 

Do a Write Subsystem READ STATUS 

If Input Ready NOT-1 Then Print Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss NGT--0 Then Print Error 

REPEAT FOR DATA FROM TO 377 OCTAL 
BEGIN 



B12 
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SEQ 0144 



2523 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 



2339 
2540 
2341 
2342 
2343 
2344 
2345 



2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 
2354 



2355 
2356 

2357 
2358 
2359 
2360 
2361 
2362 
2363 
2364 
2365 
2366 



040744 
040744 
040744 



040746 
040746 
040752 
040754 
040756 
040756 
040760 
040762 
040764 

040766 
040772 
040776 
041002 
041016 
041020 
041022 
041022 
041022 
041024 
041026 
041030 
041032 
041036 
041036 

041040 
041044 
041050 
041054 
041060 
041074 
041076 
041100 
041100 
041100 
041102 



104402 



004737 
103405 
010001 

104455 
001133 
003652 
012034 

00503 7 
012704 
004737 

103407 
010001 



104455 
001134 
046675 
012046 
005237 

104406 

004737 
012704 

010465 
004737 

103407 
010001 



104455 

001135 



Do 
Do 
Do 
If 
If 
If 
Do 
If 
Do 
If 
If 
If 



NPR to **t tap* direction out 
FIFO with bytr count *qual to 



■ Writ* Subsystem WRITE 

• Writ* Subsystem WRITE 

s Ur.ts Subsystem READ STATUS 

Input R*edy N0T*1 Th*n Print Error 

Output R**dy NOT-1 Then Print Error 

Dets In Miss NOT-O Then Print Error 

Write Subsystem READ FIFO with byte count equal to 1 

Data r**4 from FIFO NOT- to Data sent Then Print Error 

a Write Subsystem READ STATUS 



1 



Input Ready 
Output Reedy 
Data In Miss 



END 
END 



NOT-i 

NOT-O 
NOT-0 



Then 
Then 
Then 



Print 
Print 
Print 



Error 
Frror 

Error 



BGNSU6 



I //////////// BEGIN SUBTEST ////////// 

T6.2s 

TRAP C$BSU8 



015774 



i 
5lj 



Write to TSSR r*gi*t*r to *offc Initialize th* controller 



002222 
050250 
010662 



101 1 



42$i 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO ♦ SF IERR , SF IMSG 



Do a WRITE CHARACTERISTICS to •• 

CLR FATFLG 

MOV #T17PACKET,R4 

JSR PC,WRTCHR 

FOPCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T 1 7SSR , PK T SSR 



, WRITE TO TSSR TO SOFT INITIALIZE 

»br if soft INIT OKAY 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

tup a meeeeee buff*r 

iCLEAR FATAL ERROR FLAG 

jGET THE ADORESS OF COMMAND PACKET 

I DO WRITE CHARACTERISTICS COMMANO 

iNOFQRCE ERROR IF FORCER-1 

iBR IF CARRY SET (GOOD RETURN) 

jSAVE CONTENTS OF TSSR 



C$ERDF 

603 

SFIERR 

SFIMSG 



iDEVICE FATAL SSR 



002222 



050034 
050420 
000000 
016336 



50$ j 

J 



INC 
CKLOOP 



FATFLG 



iStT FATAL ERROR FLAG 
jLOOP ON ERROR . IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORO 
.WORD 



READ STATUS 



62$i 



Do • Writ* Subsystem 

JSR PC,T17SftD 

MOV #T17PK2.R4 

MOV R4 t TSD6(R5) 

JSR PC.CHKTSSR 

FORCERROR 62$ 

BCS 70$ 

MOV R0.R1 

NEmT. ERRNO 

ERRDF ERRNO, T173SSR,PKTSSR 



SET 
TRAP 



CIERDF 
604 
T17SSR 
PKTSSR 



C$CLP1 



iSETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADORESS TO EXECUTE 
tWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



jOEVICE FATAL SSR 



FAILED '0 SET 

TRAP CIFRUF 

♦WORD 605 



TSVS • HARDWARF TESTS MACRO Ml. 300 20 MAR -84 08 1 26 PAGE 28-4 
TEST 65 SUBTEST 2: TIFQ WRITE SINGLE BYTE TEST 



C12 



SEQ 0145 





041104 


046776 






041106 


012046 




2567 


041110 


005237 


002222 


2368 


041H4 








041114 


104406 




2369 








2370 


041116 


004737 


050216 


2371 


041122 


012701 


046452 


2372 


041126 


012702 


050312 


2373 


041132 


012221 




2374 


041134 


011211 




2375 


041136 


052711 


000020 


2376 


041142 


042711 


000040 


2377 


041146 


042711 


000200 


2378 








2379 








2380 


041152 


005000 




238J 


041154 


012701 


050272 


2382 


041160 


012702 


046432 


2383 


041164 


012703 


000024 


2384 


041170 


004737 


011500 


2385 


041174 






2386 


041204 


103404 




2387 


041206 






2380 


041206 








041206 


104456 






041210 


001136 






041212 


047215 






041214 


012350 




2389 


041216 








041216 


104406 




2390 








2391 








2392 


041220 


012737 


000000 


2393 


041226 






2394 








2395 


041226 


012700 


000100 


2396 


041232 


004737 


050076 


2397 


041236 


012704 


05O420 


2398 


041242 


010465 


000000 


2399 


041246 


004737 


016336 


2400 


041252 






2401 


041266 


103407 




2402 


041270 


010001 




2403 


041272 






2404 


041272 








041272 


104455 






041274 


001137 






041276 


047043 






041300 


012046 




2405 


041302 


005237 


002222 


2406 


041306 








041306 


104406 




2407 








2408 


041310 


012700 


000001 


2409 


041314 


012701 


002312 


2410 


041320 


004737 


050122 



.WORD 
.WORD 



T173SSR 
PKTSSR 





INC 


FATFLG 


I SET FATAL ERROR FLAG 




70$: 


CKLOOP 




jLOOP ON ERROR, IF FLAG SET 

TRAP 


CICLPl 


I 


Set WORDS 0-7 of m^pd maaaaga 


buffer - to racv atnea not taat i 


n Q 




JSR 


PC,T17SE>EXP 


jSET WORDS 0-7 EXPD-RECV 






MOV 


♦T17EXSTA.R1 


iGET EXPECTED READ STATUS 






MOV 


*T17BFSTA,R2 


iGET RECV READ STATUS 






MOV 


CR2)»,CR1)* 


iSET EXPO WORD #8 ■ RECV TEMP 






MOV 


(R2),CR1) 


iSET EXPO WORD *9 - RECV TEMP 






BIS 


♦S2.INRDY.CR1) 


iSET EXP INPUT READY- TRUE 






BIC 


♦S2.0UTRDY,(R1) 


iSET EXP OUTPUT READY- FALSE 






BIC 


♦S2.DIM,(R1) 


iST.T EXP DATA IN MISS - FALSE 




1 


If Input Ra*dy NOW than Prii 


it Er.or 




1 


If Output Raady NOT-0 or Data 


in Miaa NOT-0 Than Print Error 






CLR 


RO 


iHIGH RECV AOORESS FOR CKMSG2 






MOV 


♦T17BFR.R1 


I LOW RECV ADORESS FOR CKMSG2 






MOV 


♦T17EXP.R2 


,EXPD ADDRESS 






MOV 


♦20. ,R3 


tNUMBER OF BYTES TO COMPARE 






JSR 


PC.CKMSG2 


lEXPD EQUAL RECV? 






FORCERROR 82$ .NOTSSR 


tSSD 






BCS 


90$ 


}BR IF YES 






NEXT.ERRNO 






62$: 


ERRHRD 


ERRN0.T171CMP, MSGSTAT 


I REPORT ERROR 

TRAP 
.WORD 
.WORD 
.WORD 


CIERHRD 
606 

T171CMP 
MSGSTAT 


90$; 


CKLOOP 




lLOOP ON ERROR, IF FLAG SET 

TRAP 


CIO.P1 



002312 



I Rapaat for 

MOV 



DATA fro* 
♦O.DATA 



to 377 



100$ 
t 



Do a Writ* Subayatam 
MOV #NP.OUT,RO 

JSR PC,T17SNPR 

MOV #T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

102$ 



102$; 



FORCERROR 

BCS 105$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 1 74 SSR , PK 



jGET FIRST DATA 
l REPEAT LABEL 
WRITE NPR to aat tapa diraction out 
I SET TAPE DIRECTION OUT 
j SETUP T17PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADORESS TO EXECUTE 
»WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER -1 
,BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



TS5R 



105$ { 



INC 
CKLOOP 



FATFLG 



Do a Wrtta Subayatam WRITE FIFO 
MOV «1,R0 

MOV fOATA.Rl 

JSR PC.U7WFXF 



j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 607 
.WORD T174SSR 
.WORD PKTSSR 

I SET FATAL ERROR FLAG 

jLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

with byta count aqual to 1 

jWRITE 1 BYTE 

iFIFO WRITE DATA ADDRFSS 

1 SETUP T17PK2 FOR WRITE FIFO 
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D12 



SEQ 0146 



2411 


041324 


012704 


050420 


2412 


04133C 


010465 


000000 


2413 


041334 


004737 


016336 


2414 


041340 






2415 


041354 


103407 




2416 


041356 


010001 




2417 


041360 






2418 


041360 








041360 


104455 






041362 


001140 






041364 


047.06 






041366 


012046 




2419 


041370 


005237 


002222 


2420 


041374 








041374 


104406 




2421 








2422 








2423 


041376 


004737 


050034 


2424 


041402 


012704 


050420 


2425 


041406 


010465 


OOOOOO 


2426 


041412 


004737 


016336 


2427 


041416 






2428 


041432 


103407 




2429 


041434 


010001 




2430 


041436 






2431 


041436 








041436 


104455 






041440 


001141 






041442 


046776 






041444 


012046 




2432 


041446 


005237 


002222 


2433 


041452 








041452 


104406 




2434 








2435 


041454 


004737 


050216 


2436 


041460 


012701 


046452 


2437 


041464 


012702 


050312 


2438 


0414 70 


012221 




2439 


041472 


011211 




2440 


041474 


052711 


000020 


2441 


041500 


052711 


000040 


2442 


041504 


042711 


000200 


2443 








2444 








2445 


041510 


005000 




2446 


041512 


012701 


050272 


244 7 


041516 


012702 


046432 


2448 


041522 


012703 


000024 


2449 


041526 


004737 


011500 


2450 


041532 






2451 


041542 


103404 




2452 


041544 






2453 


041544 








041544 


104456 






04154b 


001142 






041550 


047373 






041552 


012350 





107$ j 



110$: 



MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 107$ 

BCS 110$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T 175SSR , PKTSSR 



»GET WRITE SUBSYSTEM COMMAND PACKET 
»SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jBSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



INC 
CKLOOP 



FATFLG 



TRAP 


CIERDF 


.WORD 


608 


.WORD 


T175SSR 


.WORD 


PKTSSR 


iSET FATAL ERROR FLAG 




j LOOP ON ERROR, IF FLAG SET 




TRAP 


CICLP1 



l Do a Uriti 5ub»yat«m READ STATUS 

JSR PC.T17SRD 

MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR ii2$ 

BCS 120$ 

MOV R0,R1 

NEXT ERRNO 
112$: ERRDF ERRNO, T173SSR, PKTSSR 



j SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



I DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

. WORD 609 

.WORD T173SSR 

.WORD PKTSSR 





INC 


FATFLG 




iSET FATAL ERROR FLAG 




120$: 


CKLOOP 






I LOOP ON ERROR, IF FLAG SET 

TRAP 


CICLP1 


I 


S«t WORDS 0-7 of • *pd ff*ssao« 


buffer • to r«cv «ine« not teati 


ng 




JSR 


PC.T17SETEXP 




iSET WOROS 0-7 EXPD-RECV 






MOV 


«U7EXSTA,R1 




iGET EXPECTED READ STATUS 






MOV 


*U7BFSTA,R2 




jGET RECV READ STATUS 






MOV 


(R2)*,(R1)* 




>SET EXPO WORD *fl - RECV TEMP 






MOV 


CR2).(R1) 




j SET EXPO WORD #9 - RECV TEMP 






BIS 


«S2.INR0Y,(R1) 




iSET EXP INPUT READY- 1 






BIS 


<S2.0UTRDY,(R1) 




iSET EXP OUTPUT REAOY- 1 






BIC 


«S2.DIM,(R1) 




iSET EXP DATA IN MISS - 




I 


If Input R«ady NOT-1 th«r 


i Print Error 




t 


If Output R«ady NOT-1 or 


Data 


\r\ Mi*a NOT-0 Th«n Print Error 






CLR 


RO 




I HIGH RECV ADDRESS FOR CKMSG2 






MOV 


•U7BFR,R1 




lLOU RECV ADORESS FOR CKMSG2 






MOV 


*T17EXP,R2 




jF.XPD ADDRESS 






MOV 


*20. # R3 




,NUr16ER OF BYTES TO COMPARE 






JSR 


PC.CKMSG2 




lEXPD EQUAL RECV? 






FORCERROR 132$,N0TSSR 


iSSO 






BCS 


140$ 




»BR IF YES 






NEXT, ERRNO 








132$: 


ERRHRD 


ERRNO, T173CMP.MSGSTAT 


j REPORT ERROR 












TRAP 


CiERHRD 










.WORD 


610 










.WORD 


T173CMP 










.WORD 


MSGSTAT 
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E12 



SEQ 0147 



2454 

2455 
2456 
2457 
2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 



2467 
2468 

2469 
2470 
2471 
2472 
2473 
24 74 
2475 
24 76 
2477 
2476 
24 79 
2480 
2481 
2482 
2483 
2484 
2485 



2486 

2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 



041554 
041554 



041556 
041562 
041566 
041572 
041576 
041602 
041616 
041620 
041622 
041622 
041622 
041624 
041626 
041630 
041632 
041636 
041636 

041640 
041644 
041650 
041654 
041660 



041662 
041664 
041670 
041674 
041700 
041704 
041714 
041716 
041716 
041716 
041720 
041722 
041724 
041726 
041726 



041750 
041734 
041740 
041744 
041750 
041764 
041766 
041770 
041770 
041770 
041772 



104406 



012700 
0O4737 
012704 
010465 
004737 

103407 
010001 



104455 
001143 
047152 
012046 
005237 

104406 

004737 

012701 
012702 
013721 
011211 



005000 
012701 
012702 
012703 
004737 

103404 



104456 
0O1144 
047277 
015742 

104406 



0O4737 
012704 
010465 
004737 

103^07 
010001 



104455 
001145 



140$! 



000001 
050156 
050420 
OOOOOO 
016336 



002222 



050216 
046452 

050312 
002312 



050272 
046432 
000022 

011500 



150$ j 

I 



152$ j 



050034 
050420 
OOOOOO 
016336 



162$: 



CKLOOP 



I LOOP ON ERROR, IF FLAG SET 

TRAP 



C$CLP1 



Do Write Subsystem READ FIFO with byt« count equal to 1 

{SET READ BYTE COUNT 



MOV 


#1, 


,R0 


JSR 


PC, 


J17RFIF 


MOV 


OT17PK2,R4 


MOV 


R4 ( 


,TSDB(R5) 


JSR 


PC, 


.CHKTSSR 


FORCERROR 


142 


BCS 


1501 


MOV 


RO, 


,R1 


NEXT, 


.ERRNO 





{SETUP T17PK2 FOR READ FIFO 
»GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

tfiWOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



142$! ERRDF ERRNO, T176SSR, PKTSSR 



l DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 



C$ERDF 
611 

T176SSR 
PKTSSR 



Set WORDS 0-7 of **pd message buffer 
JSR PC.T17SETEXP 
MOV «T17EXSTA,R1 
MOV 0T17BFSTA.R2 
MOV DATA.CR1)* 



SET 

TRAP C$CLP1 

to rtcv sine* not testing 
{SET WORDS 0-7 EXPD-RECV 
I GET EXPECTED READ STATUS 
iGET RECV READ STATUS 
tSET EXPO WORD *8 - COUNT DATA 



MOV (R2),(R1) {SET EXPO WORD 09 - RECV (NOT TESTING) 

If Data raad from FIFO NOT- to Data aent Then Print Error 
Tha data is in WORD 08 of the meseaoe buffer 



CLR 
MOV 
MOV 
MOV 
JSR 



RO 
0T17BFR.R1 

0T17EXP.R2 
018. ,R3 
PC.CKMSG2 



152$,N0TSSR 



FORCERROR 
BCS 160$ 

NEXT, ERRNO 

ERRHRD ERRNO, T172CMP,MSGSUB 



I HIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
lEXPD ADDRESS 

{NUMBER OF BYTES TO COMPARE 
{EXPO EQUAL RECV? 

{BR IF YES 



{REPORT ERROR 



160$: CKLOOP 



{LOOP ON ERROR, 



TRAP 
.WORD 
.WORD 
.WORD 
IF FLAG SET 
TRAP 



C$ERHRD 
612 

T172CMP 
MSGSUB 

C$CLP1 



Do a Write Subsystem READ STATUS 

JSR PCT17SRD 

MOV OT17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC, CHKTSSR 

FORCERROR 162$ 

BCS 170$ 

MCV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T173SSR, PKTSSR 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{88DF0RCE ERROR IF FORCER-1 
{BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 613 
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F12 



SEQ 0148 



041774 


046776 




041776 


012046 




2498 042000 


005237 


002222 


2499 042004 






042004 


104406 




2500 






2501 042006 


004737 


050216 


2502 042012 


012701 


046452 


2503 042016 


012702 


050312 


2504 042022 


012221 




2505 042024 


011211 




2506 042026 


052711 


000020 


2507 042032 


042711 


000040 


2508 042036 


042711 


000200 


2509 






2510 






2511 042042 


005000 




2512 042044 


012701 


050272 


2513 042050 


012702 


046432 


2514 042054 


012703 


000024 


2515 042060 


004737 


011500 


2516 042064 






2517 042074 


103404 




2518 042076 






2519 042076 






042076 


104456 




042100 


001146 




042102 


047457 




042104 


012350 




2520 042106 






042106 


104406 




2521 042110 






2522 042120 


005237 


002312 


2523 042124 


023727 


002312 000377 


2524 042132 


101002 




2525 042134 


000137 


041226 


2526 042140 






2527 






2528 042140 






042140 






042140 


104403 




2529 






2530 042142 


005737 


002222 


2531 042146 


001402 




2532 042150 


004737 


017202 


2533 042154 






2534 






2535 






2536 






2537 






2538 






2539 






2540 






2541 






2542 






254 3 






2544 







170$; 

I 



INC 
CKLOOP 



FATFLG 



172$ 



180$ 



Set WORDS 0-7 of «xpd 
JSR PC.T17SETEXP 
MOV *U7EXSTA,R1 
MOV *T17BF5TA,R2 
MOV (R2)»,(fU)* 
MOV (R2) ( (R1) 
BIS 0S2.INRDY.CR1 
BIC 0S2.0UTRDY.CR 
BIC *S2.DIM,CRt) 
If Input Roady NOT-l 
If Output Ready NOT-0 
CLR RO 
MOV 0T17BFR.R1 
MOV *T17EXP,R2 
MOV ^20., R3 
JSR PC,CKMSG2 
FORCERROR 172$, 
BCS 1801 
NEXT.ERRNO 
ERRHRO ERRN0.T174CMP 



.WORD 
.WORD 
I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 
message buffer ■ to recv wince not test in 
»SET WORDS 0-7 EXPD-RECV 
»GET EXPECTED READ STATUS 
j GET RECV READ STATUS 
I SET EXPO WORD OQ - RECV TEMP 
I SET EXPO WORD *9 - RECV TEMP 
) i SET EXP INPUT READY- 1 

1) i SET EXP OUTPUT READY- 

I SET EXP DATA IN MISS - 
then Print Error 
or Data in Miss NOT-0 Then Print Error 
I HIGH RECV ADORESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 



T1VSSSR 

PKTSSR 



C$CLP1 



g 



NOTSSR 



I EXPO ADDRESS 

, NUMBER OF BYTES K- 

j EXPO EQUAL RECV? 

»©80 

j BR IF YES 



COMPARE 



,MSGSTAT jREPORT ERROR 



CKLOOP 



205$ 



FORCEXIT 
INC DATA 
CMP DATA, #377 
BHI 205$ 
JMP 100$ 



ENDSUB 



205$ 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
614 

T174CMP 
MSGSTAT 

C$CLP1 



260$ 



i LOOP ON ERROR, IF FLAG 

iSSO 

jGET NEXT TEST DATA 

{DONE TO 377? 

;BR IF YES 

jDO ANOTHER TEST PATTERN 



;//////////// END SUBTEST ////////// 

L 10060: 

TRAP C$ESUB 

jANY FATAL ERRORS ? 

j BRANCH IF NOT 

j TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 3{ FIFO WRITE MULTIPLE BYTES TEST 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PCCKDROP 



TEST 6: 



SUBTEST 3: 



SUBTEST DESCRIPTION? 

This subtest verifies the ability of the FIFO to correctly 

pass a multiple data bytes from input to output. 

The following sequence is done with various data patterns 



G12 
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SEQ 0149 



2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
£558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 
2578 
2579 
2580 
2581 
2582 



2583 
2584 
2585 
2586 
2587 
2588 
2589 



2590 
2591 
2592 
2593 
2594 
2595 



042154 
042154 
042154 



042156 
042156 
042162 
042164 
042166 
042166 
042170 
042172 
042174 

042176 
042202 
042206 
042212 
042226 



and byte counts from 2 to 64. 

1. Initial FIFO status Is checked 

2. The Write FIFO function. 

3, Read Status is executed and FIFO status Is checked. 

4, Reed FIFO \s executed and the data and final status 
is checked. 



TEST STEPS? 



BEGIN 



Do 
Do 
If 
If 
If 
If 
REPEAT 



Write to TSSR to soft Initialize 



WRITE CHARACTERISTICS to setup a messaoe buffer 
Write Subsystem READ STATUS 



REPEAT FOR 
BEGIN 

Do 

Do 

Do 

If 

If 

If 

If 

Do 

If 

Do 

If 

If 

If 

If 
END 
END 



NOT-1 Then Print Error 
NOT-0 Then Print Error 
NOT-0 Then Print Error 
NOT-0 Then Print Error 
377, 377 TO 0, FLOATING 
BYTE COUNT 2 TO 64 DECIMAL 



Input Ready 
Output Ready 
Data In Miss 
Last Word 
FOR DATA TO 



l'S.O'S AND ALL l'S/O'S 



a Write 
a Write 
a Write 
Input Ready 
Output Ready 



Subsystem 
Subsystem 
Subsystem 
NOT-1 
NOT-1 



WRITE NPR to set tape direction out 

WRITE FIFO 

READ STATUS 

Then Print Error 

Then Print Error 

Data In Miss NOT-0 Then Print Error 

Last Word NOT-0 Then Print Error 

Write Subsystem READ FIFO 

Data read from FIFO NOT- to Data sent Then Print Error 
a Write Subsystem READ STATUS 



Input Ready 
Output Ready 
Data In Miss 
Last Word 



NOT-1 
NOT-0 
NOT-0 
NOT-0 



Then 

Then 
Thtn 
Then 



Print 
Print 
Print 
Print 



Error 
Error 

Error 
Error 



BGNSUB 



104402 



004737 015774 

103405 

010001 

104455 
001146 
003652 
012034 

005037 002222 
012704 050250 
004737 010662 

103407 



;//////////// BEGIN SUBTEST ////////// 

T6.3: 

TRAP C$BSUB 



i 
5«: 



Write to TSSR register to soft initialize the controller 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

10$ 

RO t Rl 

ERRNO.SFIERR.SFIMSG 



10$; 



tWRITE TO TSSR TO SOFT INITIALIZE 
|BR IF SOFT INIT OKAY 
j SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 

Do a WRITE CHARACTERISTICS to setup a message buffer 
CLR FATFLG i CLEAR FATAL ERROR FLAG 

MOV *T17PACKET,R4 jGET THE ADDRESS OF COMMAND PACKET 

JSR PCWRTCHR ,00 WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ jSSOFORCE ERROR IF FORCER -1 

BCS 50$ jBR IF CARRY SET (GOOD RETURN) 



C$ERDF 
614 
SFIEHR 
SFIMSG 



H12 
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SEQ 0150 



2596 
2597 
2598 



2599 
2600 

2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 



2611 
2612 

2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 



2635 

26 56 
2637 



042230 
042232 
042232 
042232 
042234 
042236 
042240 
042242 
042246 
042246 

042250 
042254 
042260 
042264 
042270 
042304 
042306 
042310 
042310 
042310 
042312 
042314 
042316 
042320 
042324 
042324 

042326 
042332 
042336 
042342 
042344 
042346 
042352 
042356 
042362 



042366 
042370 
042374 
042400 
042404 
042410 
042420 
042422 
042422 
042422 
042424 
042426 
042430 
042432 
042432 



010001 



104455 

001147 
046675 
012046 
005237 

104406 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001150 
046776 
012046 
005237 

104406 

004737 
012701 
012702 
012221 
011211 
052711 
0427U 
042711 
042711 



0O5O00 
012701 
012702 
012703 
004737 

103404 



104456 
001151 
047215 
012350 

104406 



42$: 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T17SSR, PKTSSR 



j SAVE CONTENTS OF TSSR 



l DEVICE FATAL SSR 



002222 



050034 
050420 
000000 
016336 





INC FATFLG 


50$: 


CKLOOP 


t 


Do a Writ* Subsystem 
JSR PC.T17SRD 






MOV OT17PK2.R4 




MOV R4.TSDBCR5) 




JSR PC.CHKTSSR 




FORCERROR 62$ 




BCS 70$ 




MOV RO.Rl 




NEXT.ERRNO 



,SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FMILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



READ STATUS 



SET 
TRAP 



C$ERDF 
615 
T17SSR 
PKTSSR 



C$CLP1 



; SETUP PACKET FOR READ STATUS 
j GET WRITE SUBSYSTEM COMMA: ;D PACKET 
jSET THF PACKET ADDRESS TO EXECUTE 
i WAIT f-uR SSR TO SET 

jsaoFoacE error if forcer»i 

jBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



62$: 



ERRDF ERRNO , T 173SSR , PKTSSR 



j DEVICE FATAL SSR 



002222 



050216 
046452 
050312 



000020 
000040 
000200 
000100 



050272 
046432 
000024 

011500 



70$: 

j 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
616 

T173SSR 
PKTSSR 



82$: 



90$: 



Set WORDS 0-7 of sxpd message 

JSR PCU7SETEXP 

MOV 0T17EXSTA.R1 

MOV OT17BFSTA.R2 

MOV (R2)»,(Rl)t 

MOV (R2),(R1) 

BIS *S2.INRDY,CR1) 

BIC *S2.0UTRDY,(R1) 

BIC *S2.DIM,(R1) 

BIC *S2.ILW 4 (R1) 

If Input Ready NOT-1 then Print 

If Output Ready NOT-0 or Data 

If Last Word NOT-0 Then 

CLR RO 

MOV *T17BFR,R1 

MOV *T17EXP,R2 

MOV 020., R3 

JSR PC.CKMSG2 

FORCERROR 82$,N0TSSR 

BCS 90$ 

NEXT .ERRNO 

ERRHRD ERRN0,T171CMP,MSGSTAT 



CKLOOP 



buffer 
j SET 
j GET 
iGET 
I SET 
I SET 
I SET 
I SET 
j SET 
•SET 
Error 

• n 



SET 

TRAP C$CLP1 
- to recv since not testing 
WORDS 0-7 EXPD-RECV 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPO WORD *8 • RECV TEMP 
EXPO WORD 09 - RECV TEMP 
EXP INPUT READY- 1 
EXP OUTPUT READY- 
EXP DATA IN MISS • 
EXP LAST WORD (ILW)-O 



Miss NOT-0 Then Print Error 
Print Error 

j HIGH RECV ADDRESS FOR CKMSG2 

I LOW RECV ADDRESS FOR CKMSG2 

>EXPD ADDRESS 

jNUMBER OF BYTES TO COMPARE 

,EXPD EQUAL RECV? 

;3Q0 

»BR IF YES 



j REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 

4 W0RD 

.WORD 

.WORD 

SET 

TRAP 



CiERHRD 
617 

T171CMP 
MSGSTAT 

C$CLP1 
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112 



SEQ 0151 



2638 
2639 
2640 
2641 
2642 
264? 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 



2658 
2659 

2660 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 



042434 
042442 
042442 
042450 

042450 
042454 

042460 
042464 
042470 
042474 
042510 
042512 
042514 
042514 
042514 
042516 
042520 
042522 
042524 
042530 
042530 

042532 
042536 
042542 
042546 
042554 
042556 
042560 
042562 
042564 
042566 
042570 
042576 
042600 
042604 
042606 
042610 
042612 
042614 
042622 
042624 
042630 
042632 
042634 
042636 
042636 
04264? 
042646 
042652 
042656 



012737 
012737 



012700 
004737 
012704 
010465 
004737 

10340/ 
010001 



104455 
001152 
047043 
012046 
005237 

104406 

004737 
012701 
013702 
022737 
001005 
005000 
110021 
005200 
005302 
003374 
022737 
001006 
012700 
110021 
005300 
005302 
003^74 
022737 
001005 
012700 
112021 
005302 
003375 

013700 
012701 
004737 
012704 
010465 



000001 002314 

000002 002310 



000100 
050076 
050420 
000000 
016336 



j REPEAT FOR 
j TSTFLAG -1 
i -2 

j -3 

MOV 



95$: 

100$ 

I 



BYTE COUNT 2 TO 64 DECIMAL 
FOR INCREMENT TEST PATTERN 
FOR DECREMENT TEST PATTERN 
FOR TSTBLK TABLE PATTERN 
♦1, TSTFLAG 



102$ 



MOV 

Do a 

MOV 

JSR 

MOV 

MOV 

JSR 

FORCERROR 

BCS 1051 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T174SSR,PKTSSR 



02, COUNT 

Write Subsystem 
*NP.OUT,RO 
PC.T17SNPR 
0T17PK2.R4 
R4.TSDBCR5) 
PC.CHKTSSR 

102* 



j TEST PATTERN FLAG 

I GET FIRST BYTE COUNT 

WRITE NPR to set tope direction out 
j SET TAPE DIRECTION OUT 
» SETUP T17PK2 FOR WRITE NPR 
i GET WRITE SUBSYSTEM COMMAND PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iSSOFOfiCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



002222 



050176 
046554 
002310 
000001 002314 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



105$ 



000002 002314 
000377 

000003 002314 
002752 



002310 
046554 
050122 

050420 
000000 



110$ 



115$ 



120$ 



125$ 



130$ 



135$ 



INC 


FATFLG 


CKLOOP 




Do a Wr 


ite Subsystem 


JSR 


PC.T17CLEXP 


MOV 


0T17WFDATA.R1 


MOV 


COUNT. R2 


CMP 


#1. TSTFLAG 


3NE 


115$ 


CLR 


RO 


MOVB 


R0.CR1)* 


INC 


RO 


DEC 


R2 


BGT 


110$ 


CMP 


02, TSTFLAG 


BNE 


125$ 


MOV 


*377, RO 


MOVB 


R0,(R1)+ 


DEC 


RO 


DEC 


R2 


BGT 


120$ 


CMP 


*3, TSTFLAG 


BNE 


135$ 


MOV 


OTSTBLK,RO 


MOVB 


(R0)»,(R1)« 


DEC 


R2 


BGT 


130$ 


MOV 


COUNT. RO 


MOV 


*T17WFDATA,R1 


JSR 


PC.T17WFIF 


MOV 


eT17PK2,R4 


MOV 


R4,TSDB(R5) 



WRITE FIFO 



SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
618 

T174SSR 
PKTSSR 



C$CLP1 



CLEAR EXPD BUFFER 

EXPO WRITE FIFO DATA BUFFER 

TEST PATTERN SIZE 

INCREMENT PATTERN THIS TIME THRU? 

BR IF NO 

INCREMENT TEST PATTERN 

STORE INCREMENT TEST BYTE 

SET NEXT PATTERN 

DONE? 

BR IF NO 

DECREMENT 

BR IF NO 

DECREMENT TEST PATTERN 

STORE DECREMENT TEST BYTE 

SET NEXT PATTERN 

DONE? 

BR IF NO 

TSTBLK PATTERNS THIS TIME THRU? 



PATTERN THIS TIME THRU? 



BR IF 

FLOAT 

STOKE 
DONE? 
BR IF 



NO 

l'S/O'S ETC. TEST 

A TSTBLK BYTE 

NO 



TABLE 



FIFO BYTE COUNT 

FIFO WRITE DATA ADDRESS 

SETUP T17PK2 FOR WRITE FIFO 

GET WRITE SUBSYSTEM COMMAND PACKET 

SET THE PACKET ADDRESS TO EXECUTE 



J12 
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SEQ 0152 



2690 


042662 


004737 


016336 


2691 


042666 






2692 


042702 


103407 




2693 


042704 


010001 




2694 


042706 






2695 


042706 








042706 


104455 






042710 


001153 






042712 


047106 






042714 


012046 




2696 


042716 


005237 


002222 


2697 


042722 








042722 


10440u 




2698 








2699 








2700 


042724 


004737 


050034 


2701 


042730 


012704 


050420 


2702 


042734 


010465 


000000 


2703 


042740 


004737 


016336 


2704 


042744 






2705 


042760 


103407 




2706 


042762 


010001 




2707 


042764 






2708 


042764 








042764 


104455 






042766 


001154 






042770 


046776 






042772 


012046 




2709 


042774 


005237 


002222 


2710 


043000 








043000 


104406 




2711 








2712 








2713 


043002 


0O4737 


050216 


2714 


043006 


012701 


046452 


2715 


043012 


012702 


050312 


2716 


043016 


012221 




2717 


043020 


011211 




2718 


043022 


052711 


000020 


2719 


043026 


052711 


000040 


2720 


043032 


042711 


000200 


2721 


043036 


042711 


000100 


2722 








2723 








2724 


043042 


005000 




2725 


043O44 


012701 


050272 


2726 


043050 


012702 


0464 32 


2727 


043054 


012703 


000024 


2728 


043060 


004737 


011500 


2729 


043064 






2730 


043074 


103404 




2731 


043076 






2732 


043076 








043076 


104456 






043100 


001155 






043102 


047373 






043104 


012350 





142$: 



JSR PC.CHKTSSR 

FORCERROR 142* 

BCS 150$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , Tl 75SSR , PKTSSR 



jWAIT FOR SSR TO SET 

jBSOFORCE ERROR IF FORCER 
I BR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



150$: 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 
619 

T175SSR 
PKTSSR 



C$CLP1 



Do a Write Subsystem 
JSR PC.T17SRD 
MOV 0T17PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 157$ 
BCS 1601 
MOV R0.R1 
NEXT. ERRNO 



READ STATUS 



157$: ERRDF 



160$: 



INC 
CKLOOP 



ERRNO. U73SSR, PKTSSR 



FATFLG 



j SETUP PACKET FOR READ STATUS 
I GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER -1 
jBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



j Set WORDS 0-7 of *xp<* 

JSR PC.T17SETEXP 

MOV 0T17EXSTA.R1 

MOV OT17BFSTA.R2 

MOV CR2)» # (Rn» 

MOV CR2).(R1) 

BIS 0S2.INRDY.CR1 

BIS OS2,0UTRDY,CR 

BIC 0S2.DIM.CR1) 

3IC *S2.ILW,(R1) 

i If Input Ready NOT-1 

I If Output Ready NOT-1 

CLR RO 

MOV AT17BFR.R1 

MOV 0T17EXP.R2 

MOV 020, ,R3 

JSR PC.CKMSG2 

FORCERROR 162$, 

BCS 170$ 

NEXT. ERRNO 

162$: ERRHRD ERRNO. T173CMP 





TRAP 


C$ERDF 




.WORD 


620 




.WORD 


T173SSR 




.WORD 


PKTSSR 




» SET FATAL ERROR FLAG 






lLOOP ON ERROR. IF FLAG SET 






TRAP 


C$CLP1 


message 


buffer • to recv since not testi 
j SET WORDS 0-7 EXPD-RECV 
j GET EXPECTED READ STATUS 
iGET RECV READ STATUS 
iSET EXPO WORD 08 ■ RECV TEMP 
iSET EXPO WORD 09 • RECV TEMP 


ng 


) 


fSET EXP IhJPUT READY- 1 




1) 


;SET EXP OUTPUT READY- 1 
iSET EXP DATA IN MISS ■ 
;SET EXP LAST WORD CILW)-0 




then Print Error 




or Data 
NOTSSR 


in MIse NOT-0 Then Print Error 
j HIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
jEXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 
lEXPD EQUAL RECV? 
I 300 
jBR IF YES 




.MSGSTAT 


j REPORT ERROR 






TRAP 


C$ERHRD 




.WORD 


621 




.WORD 


T173CMP 




.WORD 


MSGSTAT 



K12 
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2733 

2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 



2746 
2747 

2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 



2760 

2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 



27 72 

2773 



043106 
043106 



043110 
043114 
043120 
043124 
043130 
043134 
043150 
043152 
043154 
043154 
043154 
043156 
043160 
043162 
043164 
043170 
043170 



043172 
043174 
043200 
043204 
043210 
043214 
043224 
043226 
043226 
043232 
043232 
043234 
043236 
043240 
043242 
04324^ 



043244 

043250 
043254 
043260 
043264 
04 3300 
043302 
043304 
043304 
043304 
043306 
043310 
043312 
043314 
04332C 
043320 



104406 



013700 
004737 
012704 
010465 
004737 

103407 
010001 



104*55 
001156 
04 7152 
012046 
005237 

104406 



005000 
012702 
012701 
013703 
004737 

103406 

013701 

104456 
001157 
047542 
012170 

104406 



0O4737 
012704 
010465 
004737 

103407 
010001 



104455 
001160 
046776 
012046 
005237 

104406 



170): CKLOOP 



002310 
050156 
050420 
OOOOOO 
016336 



172$ 5 



Do Write Subsystem READ FIFO 

MOV COUNT , RO 

JSR PC.T17RFIF 

MOV *T17PK2,R4 

MOV R4,TSDB(R5) 

JSR PCCHKTSSP 

FORCERROR 172$ 

BCS 180* 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T176SSR , PKTSSR 



002222 



180*: 



INC 
CKLOOP 



FATFLG 



046554 
050312 
002310 
011500 



002310 



192$: 



If Data read from FIFO NOT 

CLR RO 

MOV *T17WFDATA,R2 

MOV 0T17BFSTA.R1 

MOV COUNT, R3 

JSR PC.CKMSG2 

FORCERROR 192*,N0TSSR 

BCS 200* 

NEXT.ERRNO 

MOV C0LNT.R1 

ERRHRD ERRNO . T175CMP , FIFEXP 



200*: CKLOOP 



SEQ 0153 



I LOOP ON ERROR, IF FLAG SET 

TRAP C*CLP1 



j SET READ BYTE COUNT 

j SETUP T17PK2 FOR READ FIFO 

{GET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

,900FORCE ERROR IF FORCER-1 
l BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


C*ERDF 


.WORD 


622 


.WORD 


T176SSR 


.WORD 


PKTSSR 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP C*CLP1 

to Data sent Then Print Error 

{HIGH RECV ADDRESS FOR CKMSG2 

{GET EXPECTED ADDRESS FOR CKMSG2 

{GET RECEIVED ADDRESS FOR CKMSG2 

{NUMBER OF BYTES TO COMPARE 

{EXPD EQUAL RECV? 

iSWO 

j BR IF YES 

jGFT BYTE COUNT 
{REPORT ERROR 



{LOOP ON ERROR, 



TRAP 


C*ERHRD 


.WORD 


623 


.WORD 


T175CMP 


.WORD 


FIFEXP 


IF FLAG SET 




TRAP 


C*CLP1 



050034 
050420 
OOOOOO 
016336 



212*: 



Do a Write Subsystem READ STATUS 

JSR PC.T17SRD 

MOV *T17PK2,R4 

MOV R4.TSDBCR5) 

JSR FC.CKKTSSR 

FORCERROR 212* 

BCS 220* 

MUV H0.R1 

NEXT.ERRNO 

ERRDF ERRNO, T173SSR , PKTSSR 



{SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{QQDFORCE ERROR IF FORCER-1 
j BR TF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



002222 



220$: 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



TRAP 



C*ERDF 
624 

T173SSR 
PKTSSR 



CSCLPl 
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L12 



iEQ 0154 



2774 






2775 043322 


004737 


050216 


2776 043326 


012701 


046452 


2777 043332 


012702 


050312 


2778 043336 


012221 




2779 043340 


011211 




2780 043342 


052/11 


000020 


2781 043346 


042711 


000040 


2782 043352 


042711 


000200 


2783 043356 


042711 


000100 


2784 






2785 






2786 043362 


005000 




2787 043364 


012701 


050272 


2788 043370 


012702 


046432 


2789 043374 


012703 


000024 


2790 043400 


004737 


011500 


2791 043404 






2192 043414 


103404 




2793 043416 






2794 043416 






043416 


104456 




043420 


0011-51 




043422 


047457 




043424 


012350 




2795 043426 






043426 


104406 




2796 043430 






2797 043440 


005237 


002310 


2798 043444 


023727 


002310 000077 


2799 043452 


101002 




2800 043454 


000137 


042450 


2801 043460 


005237 


002314 


2802 043464 


023727 


002314 000003 


2803 043472 


101002 




2804 0434 74 


000137 


042442 


2805 043500 






2806 043500 






043500 






043500 


104403 




2807 






2808 043502 


005737 


002222 


2609 04 3506 


001402 




2810 043510 


004737 


017202 


2811 043514 






2812 






2813 






2814 






2815 






2816 






2817 






2818 






2619 






2820 






2821 






2822 






2823 







Set WORDS 0-7 of expd 



JSR PC.T17SETEXP 
MOV <H17EXSTA,R1 
MOV *T17BFSTA,R2 
MOV (R2)»,(R1)* 
MOV CR2),(R1) 
BIS *S2.INRDY,(R1 
BIC 0S2.OUTRDY,(R 
BIC *S2.DIM,(R1) 
BIC 0S2.ILW.CR1) 
? If Input Ready NOT-1 
; If Output Reedy NOT-0 
CLR RO 
MOV *T17BFR,R1 
MOV *T17EXP,R2 
MOV *20.,R3 
JSR PC.CKMSG2 
FORCERROR 232$ . 
BCS 240$ 
NEXT.ERRNO 
232$: ERRHRD ERRNO, T174CMP 



240$: CKLOOP 



message buffer • to recv since not testing 
jSET WORDS 0-7 EXPD-RECV 
jGET EXPECTED READ STATUS 
i GET RECV READ STATUS 
> SET EXPD WORD *8 - RECV TEMP 
I SET EXPD UOf<D *9 - RECV TEMP 

) i SET EXP INPUT READY- l 

1) jSET EXP OUTPUT READY- 
i SET E V ,P DATA IN MISS » 
iSE'l EXP LAST WORD CILW)-0 

then Print Error 
or Dote in Miss NOT-0 Then Print Error 
j HIGH RECV ADDRESS FOR CKMSG2 
i LOW RECV ADDRESS FOR CKMSG2 
tEXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 
I EXPD EQUAL RECV? 

NOTSSR j 000 

j BR IF YES 



.MSGSTAT j REPORT ERROR 



250$ s 



255$ j 



FORCEXIT 25 


in?: 


COUNT 


CMP 


COUNT, 077 


BHI 


250$ 


JMP 


100$ 


INC 


TSTFLAG 


CMP 


TSTFLAG.03 


BHI 


255$ 


JMP 


95$ 



TRAP 


C$ERHRD 


.WORD 


625 


.WORD 


T174CMP 


.WORD 


MSGSTAT 


lLOOP ON ERROR. IF FLAG SET 




TRAP 


C$CLP1 


tSSO 




jGET NEXT BYTE COUNT 




t DONE TO 77 




j BR IF YES 




j DO ANOTHER BYTE COUNT 




jGET NEXT TEST PATTERN CODE 




iDONE INCDEC.TSTBLK PATTERNS? 




jBR IF YES 




jDO ANOTHER TEST PATTERN 





ENDSUU 



260$ : 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKDROP 



j//////////// END SUBTEST ////////// 

L 10061: 

TRAP C$ESU6 

t ANY FATAL ERRORS ? 

jBRANCH IF NOT 

I TRY TO DROP THE UNIT 



■SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 

♦ 

TEST 6: SUBTEST 4: 

SUBTEST DESCRIPTION: 

This subtest verifies that reading the FIFO when It is 
empty causes the Last Word (ILW) status to assert. 
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M12 



SEQ 0155 



282^ 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2835 
2834 
2835 
2836 
2837 



2838 
2839 
2840 
2841 
2842 
2843 
2844 



2845 
2846 
284 7 
2848 
2849 
2850 
2851 
2852 
2853 



2854 
2855 

2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
28 54 
2865 
2866 
2867 



043514 
043514 
043514 



043516 
043516 
043522 
043524 
043526 
043526 
043530 
043532 
043534 

043536 
043542 
043546 
043552 
043566 
043570 
043572 
043572 
043572 
04 3574 
043576 
043600 
043602 
043606 
043606 



043610 
043614 
013620 
043324 

04 3630 
04 3634 
043650 
043652 
043654 
04 3654 
04 3654 
043656 



104402 



004737 
103405 
010001 

104455 
00116:. 
003652 
012034 

005037 
012704 
004737 

103407 
010001 



104455 
001162 
046675 
012046 
005237 

104406 



012700 
004 737 
012704 
010465 
004737 

103407 
010001 



104455 
001163 



TEST STEPS: 



j BEGIN 



015774 



5$: 



002222 
050250 
010662 



002222 



000001 
050156 
050420 
000000 
016336 



END 



Writ* to TSSR to soft initialize 

Do Write Subsystem READ FIFO with byte count equol to 1 

Do a Write Subsystem READ STATUS 

If Input Reedy NOT-1 Then Print Error 

If Output Ready NOT-0 Then Print Error 

If Data In Miss NOT-O Then Print Error 

If Last Word (ILW) NOT-1 Then Print Error 



10$: 



42$; 



501; 



142$ 



BGNSU6 



\//////////// BEGIN SUBTEST ///'////// 

T6.4: 

TRAP C$BSU8 



JSR 


PC.SOFINIT 


BCS 


101 


MOV 


R0.R1 


ERRDF 


ERRNO,SFIERR,SFIMSG 



Write to TSSR register to soft initialize the controller 

, WRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
j SAVE CONTENTS OF TSSR 
» DEVICE FATAL DURING INIT 

TRAP C$ERDF 
.WORD 625 
.WORD bflERR 
.WORD SFIMSG 
setup a message buffer 
j CLEAR FATAL ERROR FLAG 
j GET THE ADDRESS OF COMMAND PACKET 
jDO WRITE CHARACTERISTICS COMMAND 

tfiWOFORCE ERROR IF FORCER* 1 
; BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV #T17PACKET,R4 

JSR PC.WRTCHfl 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT.&RRNO 

ERRDF ERRN0.T17SSR.PKTSSR 



j DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED 10 SET 
TRAP 
.WORD 
.WORD 

.WORD 



CiERDF 

626 

Tl/SSR 

PK TSSR 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



SET 

TRAP 



C$CLP1 



Do Write Subsystem READ FIFO 

MOV 01, RO 

JSR PC. T17RFIF 

MOV 0T17PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRN0.T176SSR.PKTSSR 



with byte count equal to 1 
{SET READ BYTE COUNT 
} SETUP T17PK2 FOR READ FIFO 
{GET WRITE SUBSYSTEM COMMAND PACKE: 
jSET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{QSOFORCE ERROR IF FORCER - 
jBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



FAILED TO SET 

TRAP C$FROF 
.WORD 627 



N12 
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150$: 



SEQ 0156 





043660 


047152 






043662 


012046 




2868 


04 3664 


005237 


002222 


2869 


043670 








043670 


104406 




2870 








2871 








2872 


043672 


004737 


050034 


2873 


04 3676 


012704 


050420 


2874 


043702 


010465 


OOOOOO 


2875 


043706 


004737 


016336 


2876 


043712 






2877 


043726 


10340/ 




2878 


043730 


010001 




28 79 


043732 






2880 


043732 








043732 


1044 55 






043734 


001.164 






043736 


046776 






043740 


012046 




2861 


043742 


005237 


002222 


2882 


043746 








043746 


104406 




2883 








2884 


04 3750 


004 737 


050216 


2885 


04 3754 


012701 


046452 


2886 


043760 


012702 


050312 


2887 


04 3764 


C12221 




2888 


04 3766 


011211 




2689 


043770 


052711 


000020 


2890 


043774 


042711 


000040 


2891 


044000 


042711 


000200 


2892 


044004 


052711 


000100 


2893 








2894 








2895 








2896 


044010 


005000 




2697 


044012 


012701 


050272 


2898 


044016 


012702 


046432 


2899 


044022 


012703 


000024 


2900 


044026 


004737 


011500 


2901 


04^032 






2902 


044042 


103404 




2903 


044044 






2904 


044044 








044044 


104456 






044046 


001165 






044050 


04 7616 






044052 


012350 




2905 


04*054 








044054 


104406 




2906 








2907 


044056 
044056 








044056 


104403 




2908 








2909 


044060 


005737 


Q0^^^^ 



170$: 



172$: 



INC 




FA1 


fFLG 


CKLOOP 






Do a 


Wr 


it* 


Subsystem 
.T17SRD 


JSR 




PC, 


MOV 




OT17PK2.R4 


MOV 




R4, 


.TSDBCR5) 


JSR 




PC, 


.CHKTSSR 


FORCERROR 


162$ 


BCS 




1701 


MOV 




RO, 


,H1 


NEXT 


.ERRNO 





.WORD 
.WORD 
I 5FT FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG SET 

TRAP 



T176SSR 
PKTSSR 



C$CLP1 



READ STATUS 



162$: ERRDF ERRNO, T173SSR, PKTSSR 



{SETUP PACKET FOR READ STATUS 
j GET URITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

jSSDFORCE ERROR IF F0RCER*1 
} BR IF CARRY SET (GOOD RETURN) 
tSAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



{SET FATAL ERROR K 
{LOOP ON ERROR, IE 



FAIL'iD TO SET 




TRAP 


CIERDF 


.WORD 


628 


.WORD 


T173SSR 


. WORD 


PKTSSR 


LAG 




FLAG SET 





Set WORDS 0-7 of expd 

JSR PC.T17SETEXP 

MOV *T17EXSTA,R1 

MOV OT17BFSTA.R2 

MOV CR2)+,(R1)* 

MOV CR2) t (Rl) 

BIS *S2.INRDY.(R1) 

B1C *S2.0UTRDY,(R1) 

BIC 0S2.DIM.CR1) 

BIS *S2.ILW,(Rn 

If Input Ready NOT-1 then 



message 



buffer 
{SET 
{GET 
{GET 
{SET 
{SET 
I SET 
{SET 
I SET 
;SET 
Print Error 



TRAP C$CLP1 
• to recv since not testing 
WORDS 0-7 EXPD-RECV 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPO UORD *C - RECV TEMP 
EXPD WORD 09 - RECV TEMP 
EXP INPUT READY- 1 
EXP OUTPUT READY* 
EXP DATA IN MISS - 
EXP LAST WORD (ILW)-l 



If Output Ready NOT-0 or Data 

If Last Word (ILW) NOT-1 Then 

CLR RO 

MOV 0T17BER.R1 

MOV 0T17EXP,R2 

MOV #20., R3 

JSR PC.CKMSG2 

FORCERROR 172$,N0TSSR 

BCS 180$ 

NEXT. ERRNO 

ERRHRD ERRNO, U76CMP,MSGSTAT 



in Miss NOT«0 Then Print Error 
Print Error 

{HIGH RECV AHDRESS FOR CKMSG2 

{LOW RECV ADHESS FOR CKMSG2 

{EXPD ADDREj* 

{NUM8ER OF n TES TO COMPARE 

{EXPD EQUAL KECV? 

jSQO 

;BR IF YES 



180$ i CKLOOP 



ENDSUB 



REPORT ERROR 



;LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



CSERHRD 
629 

T176CMP 
MSGSTAT 

CICLP1 



TST 



FATFLG 



j //////////// END SUBTEST ////////// 

1.10062: 

TRAP C$ESUB 

iANY FATAL ERRORS ? 



B 1 6 
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SEG 0157 



2910 
2911 
2912 
2913 
2914 
2915 
2916 
2917 
2918 
2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2920 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 

293 7 
2^38 
29*9 
2940 
2941 

2942 

294 3 
2944 
2945 
2946 
294 7 
2946 
2949 
2950 
2951 
2952 
2953 



2954 
2955 
2956 

2957 
2958 

2959 

2960 



J44064 
044066 
044072 



0440 72 
0440 72 
044072 



044074 
044074 
044100 
044102 
04410-4 
044104 
044106 
044HO 
044112 



00140, 
OC1737 



017202 



2601 j 



BEQ 

JSR 



2f.O* 

FC.CKDROP 



I BRANCH If NOT 

I TRY TO DROP THE UNIT 



.SBTTL TEST 6j SUBTEST 5i FIFO Verify Input Ready 



TEST 6: SUBTEST 5i 

SUBTEST DESCRIPTION? 

Thia lubttft vfpifin that wr i 1 1 r\Q 64, byte* Into tha FIFO 
without raedino, any out ceuae* the Input Reedy etatue to 
neoate. The Subteat then verf iiee that writing • 65th byte 
into tha FIFO ceuaee the Data In H i «• etatue to aaaart , 
Ne*t it ia varlf iad that tha original 64 bytaa cart b« read 
out corractly and that tha data haa not been corrupted, 

TEST STEPSi 



BEGIN 



Writ* to TSSR to *oft init 



END 



Do 
Do 
Do 

Do 
If 
. T f 
If 
Do 
Do 
If 
If 
If 
Do 
If 
Do 
If 
If 
If 



• 1 ize 

to aatup a m*eee9* buffar 

NPP to Mt 



WRITE CHARACTERISTICS 

Writ* Subeyete* WRITE 

Write Subeyete* WRITE FIFO 64. bytaa 

Write Subeyete* READ STATUS 



di ract Jon out 

ncrementing pattern 



a total of 65, written 



Input Ready N0T»0 Then Print Error 

Output Ready NOW Then Print Error 

Data In Miee N0T*0 Then Print Error 

a Write Subeyete* WRITE FIFO 1 byte for 

a Write Subeyete* READ STATUS 

Input Ready NOT-0 Than Print Error 

Output Ready NOW Then Print Error 

Data In Hiee NOT-1 Then Print Error 

Write Subeyete* REAO FIFO 

Data read from FIFO NUT* to Det* aent Then Print Error 

a Write Subeyete* READ STATUS 

Input Ready NOT-1 Then Print Error 

Output Ready NOT-0 Then Print Error 

Date In M»*« NOT-1 Th*n Print Error 



BGNSU6 



104402 



004/37 
103405 
01.001 

104455 
001165 
003652 
012034 



\//////////// BEGIN SUBTEST /////"//> 

T6.5: 

TRAP CIBSUB 



015774 



i 



Write to TSSR raQieter to aoft initialize the controller 



JSR PC.SOFINIT 

BCS 101 

MOV R0.R1 

tRRDF ERRNO * SFIERR * 5FXMSG 



(WRITE TO TSSR 10 SOFT INITIALIZE 

}BR IF SOFT INIT OKAY 

I SAVE CONTFNTS OF TS$R 

iQEVXCE FATAL DURING INIT 

TRAP CURD* 
, WORD 629 

WOWO S* ILRM 
*WURU iiKIMSU 
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C 1 ? 



SEQ 0150 



296 1 






2962 044114 


005057 


002222 


2965 044120 


012704 


050250 


2964 044124 


004757 


010662 


2965 C44130 






2966 044144 


105407 




2967 044146 


010001 




2968 044150 






2969 044150 






044150 


104455 




044152 


001166 




044154 


046675 




044156 


012046 




2970 044160 


005257 


002222 


2971 044164 






044164 


104406 




2972 






2975 






2974 044166 


012700 


000100 


2975 044 W2 


004757 


05OO76 


2976 044176 


012704 


050420 


2977 044202 


010465 


000000 


2978 044206 


004757 


016336 


2979 044212 






2980 044226 


105407 




2981 044230 


010001 




2982 044232 






2985 044232 






044232 


104455 




044254 


001167 




044256 


04 7045 




044240 


012046 




2984 044242 


005257 


002222 


2985 044246 






044246 


104406 




2986 






2987 






2988 044250 


012757 


0O0100 002310 


2989 044256 


012701 


046554 


2990 044262 


012702 


000100 


2991 044266 


005OO0 




2992 044270 


110021 




2993 044272 


005200 




2994 044274 


005502 




2995 044276 


005374 




2996 044500 


013700 


002510 


2997 044504 


012701 


046554 


2998 044 510 


004757 


050122 


2999 044514 


012704 


050420 


5000 044 520 


010465 


000000 


5001 044 524 


004757 


016336 


5002 044 550 






3005 044544 


103407 




3004 044546 


010001 




3005 044 550 






3006 044 350 






0445i?0 


104455 





10$ s 



42*: 



50$ ; 



I 
1001 1 



1021} 



105$! 



110$; 



142$ j 



Do a WRITE CHARACTERI 

CLR FATFLG 

MOV ^T17PACKET,R4 

JSR PC.WRTCHR 

r ORCERROR 42$ 

UCS 50$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T17SSR, 



STICS to ••tup c mm9*mg* buffer 

I CLEAR FATAL ERROR FLAG 

I GET THE ADDRESS OF COMMANO PACKET 

I DO WRITE CHARACTERISTICS COMMANO 

iMOFORCE ERROR IF FORCER-1 
tBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



PKTS5R 



iDEVICE FATAL SSR 



INC 


FATFLG 




CKLOOP 






Do • Wrlt« Sub«y«t«m 


WRITE M 


MOV 


•NP.OUT.RO 




JSR 


PC, T17SNPR 




MOV 


"T17PK2.R4 




MOV 


R4,TSD6CR5) 




JSR 


PCCHKT5SR 




FORCERROR 102$ 




BCS 


105$ 




MOV 


R0,R1 




NEXT.ERRNO 




ERRDF 


ERRNO.T174SSR 


,PKTSSR 



l SET FATAL tRROR FLAG 
ilOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 

.worn) 

.WORD 
.WORD 



SET 

TRAP 



C$ERDf 
630 
Tl/SSR 
PKT'JSR 



C$CLP1 



to »«t tap* di'.T ioo out 
l SET TAPE DIK iiON OUT 
iSETUP T17PK2 h OR URITE ^>R 
iGFT WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
(BR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



TNC 
CKLOOP 



FATFLG 



lOEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



iSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 

631 

T174SSR 

PKTSSR 



C$CLP1 



Do • Wr!t« Sub«y«t«m WRITE FIFO 

MOV #64. .COUNT 

MOV •U/WFDATA.Rl 

MOV #64.,R2 

CLR RO 

MOVB RO.(Nl)* 

INC RO 

DEC R2 

BGT 110$ 

MOV COUNT, RO 

MOV #T17WF0ArA,Rl 

JSR PC.TWWFIF 

MOV #T17PK2,R4 

MOV R4.TSDBCP5) 

JSR PC.CHKTSSR 

FORCERROR 142$ 

BCS 150$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNQ.U75SSR PKTSSR 



64. oyt«« i nc rmmmrs t \ no pott«rn 

lURITt 64 BYTES 

lEXPO WRITE FIFO DATA BUFFER 

I TEST PATTERN SIZE 

iINCREMENT TEST PATTERN 

iSTORE INCREMENT TEST BYTE 

I SET NEXT PATTERN 

i DONE? 

iBR IF NO 

jFIFO BYTE COUNT 

|FIFO WRITE DATA ADDRESS 

iSETl* 5 T17PK2 FOR WRITE FIFO 

jGET WRITE SUBSYSTEM COMHANO PACKET 

i SET THE PACKET ADORESS TO EXECUTE 

jWAIT FOR SSR TO SET 

tMOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



iDEVICE FATAL 



SSR FAILED '0 ^ET 

TRAP CitRQK 
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D.1.3 



SEQ 0159 





044352 


001170 






044354 


047106 






044356 


012046 




3007 


044360 


005237 


002222 


7008 


044364 








044364 


104406 




3009 








3010 








3011 








3012 








3013 








301* 


044366 


004737 


050034 


3015 


044372 


012704 


050420 


3016 


044376 


010465 


OOCOOO 


3017 


044402 


004737 


016336 


3018 


044406 






3019 


044422 


103407 




3020 


044424 


010001 




3021 


044426 






3022 


044426 








044426 


104455 






044430 


001171 






044432 


046776 






044434 


012046 




3023 


044436 


005237 


002222 


3024 


044442 








04*442 


104406 




3025 








3026 


044444 


004737 


050216 


3027 


044450 


012701 


046452 


3028 


044454 


012702 


050312 


3029 


044460 


012221 




3030 


044462 


011211 




3031 


044464 


042711 


000020 


3032 


044470 


052711 


000040 


3033 


044474 


042711 


000200 


3034 


044500 


005000 




3035 


044502 


012701 


050272 


30*6 


044506 


012702 


0464?? 


3037 


044512 


012703 


000024 


3038 


044516 


0O4737 


011500 


3039 


044522 






3040 


044532 


103404 




3041 


044534 






3042 


044534 








044534 


104456 






044536 


001172 






044540 


0473/3 






044542 


012350 




3043 


044544 








044544 


104406 




3044 








3045 








3046 








304 7 


044546 


012700 


000001 


3048 


044552 


012701 


046554 


3049 


044556 


004 737 


050122 



1501 j 



160$: 

I 



162$ s 



INC FATFLG 




CKLOOP 




Do a Writ* SubayaUm READ ST, 


If Input Raady NOT-O 


Than 


If Output Raady NOW 


Than 


If Oat© In Miaa NOT-0 


Than 


JSR PC.T17SRD 




MOV *T17PK2,R4 




MOV R4,TSDB(R5) 




JSR PC.CHKTSSR 




FORCERROR 157$ 




BCS 160$ 




MOV R0.R1 




NEXT. ERRNO 





iSET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



■ WORD 
. WORD 
.WORD 

SET 
TRAP 



652 
T175SSR 



C$CLP1 



Print Error 

Print Error 

Print Error 

j SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
i5ET THE PACKET ADDRESS TO EXECUTE 
lUAIT FOR SSR TO SET 

jSQOFORCE ERROR IF FORCER-1 
»BR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



157$ { ERRDF ERRNO, T173SSR , PKTSSR 



iDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



iSET FATAL 
l LOOP ON El 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
653 

ri 73SSR 
PKTSSR 



RROR FLAG 
OR, IF FLAG 



Sat WORDS 0-7 of axpd maaaaga 

JSR PC.T17SETEXP 

MOV ♦T17EXSTA.R1 

MOV #T178FSTA.R2 

MOV (R2)»,(R1)» 

MOV (R2),(«l) 

BIC ♦S2.INR0Y l (Rl) 

BIS *S2.0UTRDY.(R1) 

BIC ♦S2.DIM.CR1) 

CLR RO 

MOV #T17BFR.R1 

MOV #T17EXP,R2 

MOV *20,,R3 

JSR PC,CKMSG2 

FORCERROR 162$ .NOTSSR 

BCS 170$ 

NEXT ERRNO 

ERRHRD ERRNO , T 173CMP ,M5GS VAT 



SET 

TRAP C$CLP1 

buffar - to racv ainca not tasting 
iSET WORDS 0-7 EXPD*R£CV 
iGET EXPECTED READ STATUS 
■GET RECV REPC STATUS 
I SET l-.XPD WORO 08 • RECV TEMP 
l SET EXPO WORD *9 • RECV TEMP 
l SET EXP INPUT READY* 
j SET EXP OUTPUT READY- 1 
iSET EXP DATA IN MISS - 
jHIGH RECV ADDRESS FOR CKMSG2 
jLOW RECV AOORESS FOR CKMSG2 
»EXPD ADDRESS 

t.^UMBER OF BYTES TO COMPARE 
jEXPD EQUAL RECV? 
iQtiO 
iBR IF YES 



170$: CKLOOP 



j REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TRAP 

. WORD 

.WORD 

.WORD 

SET 

TRAP 



CltRHRD 
654 

T1/3CMP 
MStiSTAT 



C$CLP1 



Do a Wrtta Subayatam WRITE FIFO 

MOV 01, RO 

MOV *U7WFDATA,RI 

JSR PC,T17WFiF 



1 byta for a total o' 65. writtan 

I FIFO BITE COUNT 

\f HO WRITE DATA AOORESS 

jSETUP T17PK2 FOR WRITE FIFO 
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t;i3 



SEQ 0X60 



3050 044562 


012704 


050420 




MOV 0T17PK2.R4 


iGET WRITE SL8SYSTEM COMMAND PACKET 


3051 044566 


010465 


000000 




MOV R4,TSDBCR5) 


j SET THE PACKET ADDRESS TO EXKCUTE 


3052 044572 


004737 


016336 




JSR PC.CHKTSSR 


■WAIT FOR SSR TO SET 




3053 044576 








FORCERROR 172$ 


ififiOFORCE ERROR IF FORCER-1 


3054 044612 


103407 






BCS 180$ 


»BR IF CARRY SET (GOOO RETURN) 




3055 044614 


010001 






MOV R0.R1 


jSAVE CONTENTS OF TSSR 




3056 044616 








NEXT.ERRNO 






3057 044616 






172$: 


ERRDF ERRNO, T175SSR , PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




044616 


104455 








TRAP 


C$ERDF 


044620 


001173 








.WORD 


635 


044622 


047106 








.WORD 


T175SSR 


044624 


012046 








.WORD 


PKTSSR 


3058 044626 


005237 


002222 




INC FATFLG 


j SET FATAL ERROR FLAG 




3059 044632 






180$: 


CKLOOP 


»LQOP ON ERROR, IF FLAG 5FT 




044632 
3060 


104406 








TRAP 


CICLP1 


3061 






i 


Do a Writ* Subsystem READ STATUS 




3062 






i 


If Input Raady NOT-0 Than 


Print Error 




3063 






i 


If Output Raady NOT-1 Than 


Print Error 




3064 






\ 


If Data In Mia* NOT-l Then 


Print Error 




3065 044634 


004737 


050034 




JSR PC.T17SRD 


iSETUP PACKET FOR READ STATUS 




3066 044640 


012704 


050420 




MOV *T17PK2,R4 


iGET WRITE SUBSYSTEM COMMAND PACKET 


3067 044644 


010465 


000000 




MOV R4.TSD8CR5) 


iSET THE PACKET ADDRE5S TO EXECUTE 


3068 044650 


004737 


016336 




JSR PC.CHKTSSR 


jWAIT FOR SSR TO SET 




3069 044654 








FORCERROR 187$ 


jOSOFORCE ERROR IF FORCER-1 


3070 044670 


103407 






BCS 190$ 


:BR IF CARRY SET (GOOO RETURN) 




3071 044672 


010001 






MOV R0.R1 


jSAVE CONTENTS Of TSSR 




3072 044674 








NEXT.ERRNO 






3073 044674 






187$: 


ERRDF ERRNO, T173SSR , PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




044674 


104455 








TRAP 


C$ERDF 


044676 


001174 








.WORD 


636 


044 700 


046776 








.WORD 


T173SSR 


044702 


012046 








.WORD 


PKTSSR 


3074 044704 


005237 


002^2 




INC FATFLG 


iSET FATAL ERROR FLAG 




3075 044710 






190$: 


CKLOOP 


lLOOP ON ERROR, IF FLAG SET 




044710 


104406 








TRAP 


C$CLPl 


3076 






• 


Sat WORDS 0-7 of axpd niessag* 


» buffar • to racv ainca not tasting 


3077 044712 


0O4737 


050216 




JSR PC.U7SETEXP 


iSET WORDS 0-7 EXPD-RECV 




3078 044716 


012701 


046452 




HOV *T17EXSTA,R1 


jGET EXPECTED READ STATUS 




3079 044722 


012702 


050312 




MOV #T17BFSTA.R2 


iGET RECV READ STATUS 




3080 044726 


012221 






MOV (R2)«,(R1)» 


j SET EXPO WORD «8 - RECV TEMP 




3081 044730 


011211 






HOV (R2),(R1) 


i SET EXPO WORD 09 • RECV TEHP 




3082 044 732 


042711 


000020 




BIC ♦S2.INRDY,(R1) 


:SET EXP INPUT READY- 




3083 044736 


052711 


000040 




BIS *S2.0UTRDY,(Rl) 


iSET EXP OUTPUT READY- 1 




3084 044742 


052711 


000200 




BIS 0S2.DIM.CRi) 


iSET EXP DATA IN HISS • 1 




3085 044746 


005000 






CLR RO 


jHIGH RECV ADDRESS FOR CKMSG2 




3086 044750 


012701 


050272 




HOV 0U7BFR.R1 


1 LOW RECV ADDRESS FOR CKMSG2 




3087 044754 


012702 


046432 




HOV *U7EXP,R2 


lEXPD ADDRESS 




3088 044 760 


012703 


000024 




HOV *20.,R3 


j NUMBER OF BYTES TO COMPARE 




3089 044 764 


0O4737 


011500 




JSR PC.CKMSG2 


j EXPO EQUAL RECV? 




3090 044770 








FORCERROR 192$,N0TSSR 


joao 




3091 045OO0 


103404 






BCS 200$ 


jBR IF YES 




3092 045002 








NEXT.ERRNO 






3093 045002 






192$: 


fcRRHRD ERRNO, T173CMP .MSGSTA1 


f jREPORT ERROR 




045002 


104456 








TRAP 


C$ERHRD 


045004 


001175 








.WORD 


637 


045006 


047373 








.WORD 


T173CMP 
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F13 



045010 


012350 








3094 045012 






2005; 


CKLOOP 


045012 


104406 








3095 






5 


Do Write Subeyetem READ FIFO 


3096 045014 


013700 


002310 




MOV COUNT, RO 


3097 045020 


004737 


050156 




JSR PC.T17RFIF 


3098 045024 


012704 


050420 




MOV <K17PK2,R4 


3099 045030 


010465 


000000 




MOV R4.TSDBCR5) 


3100 045034 


004737 


016336 




JSR PC.CHKTSSR 


3101 045040 








FORCERROR 212 5 


3102 045054 


103407 






BCS 220 5 


3103 045056 


010001 






MOV R0,R1 


3104 045060 








MEXT,ERRN0 


3105 045060 






212*t 


ERRDF ERRN0,T176SSR,PKTSSR 


045060 


104455 








045062 


001176 








045064 


047152 








045066 


012046 








3106 045070 


005237 


002222 




INC FATFLG 


3107 045074 






220$: 


CKLOOP 


045074 


104406 








3108 










3109 






J 


If Data read from FIFO NOT- * 


3110 045076 


005000 






CLR RO 


3111 045100 


012702 


046554 




MOV ♦T17WFDATA,R2 


3112 045104 


012701 


050312 




MOV *U7BFSTA,R1 


3113 045110 


013703 


002310 




MOV COUNT, R3 


3114 045114 


004737 


011500 




JSR PC.CKMSG2 


3115 045120 








FORCERROR 2325 .NOTSSR 


3116 045130 


103406 






BCS 2405 


3117 045132 








N6XT.ERRN0 


3118 045132 


013701 


002310 


2325: 


MOV COUNT, Rl 


3119 045136 








ERRHRD ERRN0.T175CMP.FIFEXP 


045136 


104456 








045140 


001177 








045142 


047542 








045144 


012170 








3120 045146 






240$: 


CKLOOP 


045146 


104406 








3121 










3122 






i 


Do a Write Sufeayetem READ ST, 


3123 






j 


If Input Ready NOT-l Than 


3124 






i 


If Gut-put Ready NOT-O Then 


3125 






i 


If Data In Miaa NOT-l Then 


3126 045150 


0O4737 


050034 




JSR PC.T17SRD 


3127 045154 


012704 


050420 




MOV *T17PK2,R4 


3128 045160 


010465 


000000 




MOV R4,TS0B(R5) 


3129 045164 


004737 


016336 




JSR PCCHKTSSR 


3130 045170 








FORCERROR 2525 


3131 045204 


103407 






BCS 2605 


3132 045206 


010001 






MOV R0.R1 


3133 045210 








NEXT.ERRNO 


3134 045210 






2525; 


ERRDF ERRN0.U7iSSR,PKTSSR 


045210 


104455 








045212 


001200 








045214 


046776 








045216 


012046 









SEQ 0161 



.WORD MSGSTAT 
j LOOP ON ERROR, IF FLAG SET 

TRAP C5CLP1 

I SET READ BYTE COUNT 

j SETUP T17PK2 FOR READ FIFO 

jGET WRITE SUBSYSTEM CGMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

tOaOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 





TRAP 


C5ERDF 




.WORD 


638 




,UORD 


T176SSR 




.WORD 


PKTSSR 


j SET FATAL ERROR FLAG 






{LOOP ON ERROR, IF FLAG 


SET 
TRAP 


C5CLP1 



Data aent Then Print Error 
>HIGH RECV ADDRESS FOR CKMSG2 
jGET EXPECTED ADDRESS FOR CKMSG2 
iGET RECEIVED ADDRESS FOR CKMSG2 
iNUMBER OF BYTES TO COMPARE 
i EXPO EQUAL RECV? 
i 980 
{BR IF YES 



{GET BYTE COUNT 




{REPORT ERROR 




TRAP 


C5ERHRD 


.WORD 


639 


.WORD 


T175CMP 


.WORD 


FIFEXP 


{LOOP ON ERROR, IF FLAG SET 




TRAP 


C5CLP1 



ATUS 

Print Error 

Pr I nt Error 

Print Error 

l SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMANO PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

I0SOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 

.WORD 
»WORD 



C5ERDF 
640 

T173S r .< 
PKTSUrt 
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G13 



SEC) 0162 



3135 045220 


005237 


002222 


3136 045224 






045224 


104406 




3137 






3138 045226 


004737 


050216 


3139 045232 


012701 


046452 


3140 045236 


012702 


050312 


3141 045242 


012221 




3142 045244 


011211 




3143 045246 


052711 


000020 


3144 045252 


042711 


000040 


3145 045256 


052711 


000200 


3146 045262 


005000 




3147 045264 


012701 


050272 


3148 045270 


012702 


046432 


3149 045274 


012703 


000024 


3150 045300 


004737 


011500 


3151 045304 






3152 045314 


103404 




3153 045316 






3154 045316 






045316 


104456 




045320 


001201 




045322 


047457 




045324 


012350 




3155 045326 






045326 


104406 




3156 






3157 045330 






045330 






045330 


104403 




3158 






3159 045332 


005737 


002222 


3160 045336 


001402 




3161 045340 


004737 


017202 


3162 045344 






3163 






3164 






3165 






3166 






3167 






3168 






3169 






3170 






3171 






3172 






3173 






3174 






3175 






3176 






3177 






3178 






3179 






3180 






3181 






3182 






3183 









INC 


FATFLG 


260$: 


CKLOOP 




1 


Set WORDS 0-7 of expj message 




JSR 


PC, T17SETEXP 




MOV 


4T17EXSTA.R1 




MOV 


*T17BFSTA,R2 




MOV 


CR2)*,(R1)* 




MOV 


(R2),(R1) 




BIS 


*S2.INRDY,CRn 




BIC 


*S2.0U1HDY,(R1) 




BIS 


*S2.DIM>(R1) 




CLR 


RO 




MOV 


0T17BFR.R1 




MOV 


♦T17EXP.R2 




MOV 


020, ,R3 




JSR 


PC.CKMSG2 




FORCERROR 272$,N0TSSR 




BCS 


2801 




NEXT.ERRNO 


272$: 


ERRHRO 


ERRNQ.T174CMP.MSGSTAT 



280$: CKLOOP 



ENDSUB 



300$: 



TST 


FATFLG 


BEQ 


300$ 


JSR 


PC.CKDROP 



I SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
buffer * to rtcv tinc« not testing 
j SET WORDS 0-7 EXPD-RECV 
iGET EXPECTED READ STATUS 
jGET RECV READ STATUS 
I SET EXPO WORO *8 - RECV TEMP 
i SET EXPO WORD 09 • RECV TEMP 
l SET EXP INPUT READY- 1 
I SET EXP OUTPUT READY- 
I SET EXP DATA IN MISS • 1 
jHIGH RECV ADDRESS FOR CKMSG2 
I LOW RECV ADDRESS FOR CKMSG2 
jEXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 
,EXPD EQUAL RECV? 
iBSO 
j BR IF YES 

t REPORT ERROR 



i LOOP ON ERROR. IF FLAG 



,//////////// END SUBTEST ////////// 

L 10063: 

TRAP C$ESUB 

l ANY FATAL ERRORS ? 

{BRANCH IF NOT 

} TRY TO DROP THE UNIT 



T KAP 


C$ERHRD 


WORD 


641 


.WORD 


T174CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


C$CLP1 



.SBTTL TK'. 6: SUBTEST 6: FIFO Verify Reset FIFO Test 

* 

TEST 6: SUBTEST 6: 

SUBTEST DESCRIPTION: 

This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 
the FIFO to correct intial status. The following steps 
are performed: 

1. Re Jet an already initialized FIFO and check for 
propmr status. 

2, Write a varying number of bytes (1-65, ) into the 
FIFO and verify that after each block of bytes is 
written the FIFO con be be reset to it's initial 
state. 



H13 
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SEQ 0163 



3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 



3205 
3206 
3207 
3208 
3209 
3210 
3211 



3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 
3220 



3221 
3222 

3223 
3224 
3225 
3226 

3227 
3228 
3229 



045344 
045344 
045344 



045346 
045346 
045352 
045354 
045356 
045356 
045360 
045362 
045364 

045366 
045372 
045376 
045402 
045416 
045420 
045422 
045422 
045422 
045424 
045426 
045430 
0454 32 
0454 36 
045436 

045440 
045444 
045450 

045454 
045460 
045474 



104402 



004737 
103405 
010001 

104455 
001201 
003652 
012034 

005037 
012704 
004737 

103407 
010001 



104455 
001202 
046675 
012046 
005237 

104406 

004737 
012704 
010465 
004737 

103407 



TEST STEPS: 



BEGIN 



Wr 
Do 
Do 
Do 
If 



te to TSSR to soft initialize 

a WRITE CHARACTERISTICS to ••tup a mtssaoe buffer 
a Writ* Subsystem Writ* Misc to Reset FIFO 

READ STATUS 

CICER.IFMK.IHER) flip-flop 

Print Error 

WRITE NPR to set tape direction 



a Write Subsystem 
all Tape Status 2 
si onals NOT-O Then 
Do a Write Subsystem 



out 



REPEAT FOR BYTE COUNT 1 TO 65. 



BEGIN 
Do 
Do 
Do 
If 



END 



a Wrt te Subsystem 
a Write Subsystem 
a Write Subsystem 
all Tape Status 2 
si finals NOT-0 Then 



WRITE FIFO Hith the current 
Write Mlsc to Reset FIFO 
READ STATUS 

CICER,IFMK,IHER) flip-flop 
Print Error 



byte count 



015774 



{ -- 



1 
5*! 



BGNSUB 



,//////////// BEGIN SUBTEST ////////// 

T6.6: 

TRAP C$BSUB 



Write to TSSR refiister to eoft initialize the controller 



002222 
050250 
010662 



10$ j 



42*: 



JSR PC.SOFINIT 

BCS 10$ 

MOV R0,R1 

ERRDF ERRNO ♦ SFIERR . SF IMSG 



Do a WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV *T17PACKET,R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, T17SSR.PKTSSR 



iWRITE TO TSSR TO SOFT INITIALIZE 

»BR IF SOFT INIT OKAY 

j SAVE CONTENTS OF TSSR 

1 DEVICE FATAL DURING INIT 

TRAP 
.WORD 
.WORD 
.WORD 
setup a mtttogt buffer 

{CLEAR FATAL ERROR FLAG 

jGET THE ADDRESS OF COMMAND PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

jQOOFORCE ERROR IF FORCER-1 

jBR IF CARRY SET (GOOO RETURN) 

j SAVE CONTENTS OF TSSR 



C$ERDF 

641 

SFIERR 

SFIMSG 



jDEVICE FATAL SSR 



002222 



050054 
050420 
000000 
016336 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



50$: 


INC FATFLG 

CKLOOP 


\ 


Do a Write Subsystem 
JSR PC.T17RSFIF 
MOV *T17PK2,R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 62$ 
BCS 70$ 



1 SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
642 
T17SSR 
PKTSSR 



C$CIP1 



Write Misc to Reset FIFO 

(SETUP PKT FOR WRITE MISC RESET Fl> 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSOOFORCE ERROR IF FORCER -1 
iBR IF CARRY SET (GOOD RETURN) 
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SEQ 0164 



3230 045476 


010001 




3231 045500 






3232 045500 






045500 


104455 




045502 


001203 




045504 


046732 




045506 


012046 




3235 045510 


005237 


002222 


3234 045514 






045514 


104406 




3235 






3236 






3237 






3238 






3239 045516 


004737 


050034 


3240 045522 


012704 


050420 


3241 045526 


010465 


000000 


3242 045532 


004737 


016336 


3243 045536 






32M 045552 


103407 




3245 045554 


010001 




3246 045556 






3247 045556 






045556 


104455 




045560 


001204 




045562 


046776 




045564 


012046 




3248 045566 


005237 


002222 


3249 045572 






045572 


104406 




3250 045574 


004737 


050216 


3251 045600 


012701 


046452 


3252 045604 


012702 


050312 


3253 045610 


011211 




3254 045612 


042711 


002000 


3255 045616 


042711 


001000 


3256 045622 


042711 


000400 


3257 045626 


016261 


000002 000002 


3258 045634 


005000 




3259 045636 


012701 


050272 


3260 045642 


012702 


046432 


3261 045646 


012703 


000024 


3262 045652 


004737 


011500 


3263 045656 






3264 045666 


105404 




3265 045670 






3266 045670 






045670 


104456 




045672 


001205 




045674 


047 724 




045676 


012350 




3267 045700 






045700 


104406 




3268 






3269 






3270 0457Q2 


012700 


000 100 


3271 045706 


004 737 


050076 



624; 



70$: 



MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0,T172SSR, PKTSSR 



INC FATFLG 

CKLOOP 



j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
. UOflD 
;SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



CiERDF 
643 

T172SSR 
PKTSSR 



C$CLP1 



77$; 



Do a Writ* Subsystem 
IF all Tops Status 2 
signals NOT-O Then 
JSR PC.T17SRD 
MOV 0T17PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 77$ 
BCS 80$ 
MOV R0,R1 
NEXT.ERRNO 
ERRDF ERRN0.T173SSR. PKTSSR 



READ STATUS 

CICER,IFMK.IHER) flip-flop 
Print Error 



i SETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSaOFORCE ERROR IF FORCER'l 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 



TRAP 


C*ERDF 


.WORD 


644 


.WORD 


T173SSR 


.WORD 


PKTSSR 



80$ 



92$ 



100$: 



INC 


FATFLG i 


CKLOOP 




JSR 


PC.T17SETEXP , 


MOV 


*T17EXSTA,R1 j 


MOV 


0T17BFSTA.R2 i 


MOV 


(R2),CR1) , 


BIC 


•Sl.ICER.CRl) j 


BIC 


*S1.IFMK,(R1) j 


BIC 


•S1.XHER.CR1) i 


MOV 


2(R2),2(R1) i 


CLR 


RO ; 


MOV 


•T17BFR.R1 j 


MOV 


*T17EXP f R2 i 


MOV 


020., R3 , 


JSR 


PC.CKMSG2 i 


FORCERROR 92$,N0TSSR j 


BCS 


100$ i 


NEXT.ERRNO 


ERRHRD 


ERRNO.U77CMP.MSGSTAT i 



SET FATAL ERROR FLAG 

LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

SET WORDS 0-7 EXPD-RECV (NOT TESTING) 
GET EXPECTEO READ STATUS 
GET RECV READ STATUS 
SET EXPO WORD 08 - RECV TEMP 
SET EXPO ICER -0 
SET EXPO IFMK -0 
SET EXPO IHER -0 
SET EXPO WORD 09 - '^CV (NOT TESTING) 



CKLOOP 



HIGH RECV ADDRESS fOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPO ADDRESS 

NUMBER OF BYTES TO COMPARE 
EXPO EQUAL RECV? 

BR IF YES 

I REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



TRAP 


C$ERHRD 


.WORD 


645 


.WORD 


T177CMP 


.WORD 


MSGSTAT 


SET 




TRAP 


C$CLP1 



Do a Write Subsystem WRITE NPR to set tape direction out 
MOV ONP.OUT.RO ,SET TAPE DIRECTION OUT 

JSR PC.T17SNPR jSETUP T17PK2 FOR WRITE NPR 



J13 
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SEQ 0165 



3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 



3280 
3281 

3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
32*4 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 



3307 
3308 

3309 
3310 

3311 
3312 

3313 
3314 
3315 
3316 

3317 

3318 



045712 
045716 
045722 
045726 
045742 
045744 
045746 
045746 
045746 
045750 
045752 
045754 
045756 
045762 
045762 



045764 
045770 
045774 
045776 
046000 
046002 
046004 



046014 
046014 
046020 
046024 
046030 
046034 
046040 
046044 
046060 
046C52 
046064 
046064 
046064 
046066 
046070 
046072 
046074 
046100 
046100 



046102 
046106 
046112 
046116 
046122 
046136 
046140 
046142 



012704 
010465 
004737 

103407 
010001 



104455 
001206 
04 7043 
012046 
005237 

104406 



012701 
012702 
005000 
110021 
005200 
005302 
003374 



050420 
000000 
016336 



112$: 



MOV 0T17PK2,R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 112$ 

BCS 120* 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO , T174SSR , PKTSSR 



I GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
j WAIT FOR SSR TO SET 

jSQOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILED TO SET 



002222 



046452 
000100 



TRAP 


C$ERDF 


.WORD 


646 


.WORD 


T174SSR 


.WORD 


PKTSSR 



120$: 



046006 *1?737 000001 002310 



130$: 



INC 


FATFLG 




CKLOOP 






Setup 


increment \r\Q 


pattern 


MOV 


♦T17EXSTA, 


Rl 


MOV 


064., R2 




CLR 


RO 




MOVB 


RO.CRl)* 




INC 


RO 




DEC 


R2 




BGT 


130$ 





in 



,SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG SET 

TRAP 

FIFO data buffer 

jEXPD WRITE FIFO DATA BUFFER 
j TEST PATTERN SIZE 
{INCREMENT TEST PATTERN 
j STORE INCREMENT TEST BYTE 
jSET NEXT PATTERN 
j DONE? 
jBR IF NO 



C$CLP1 



1 TO 65. 



013700 
012701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001207 
047106 
012046 
005237 

104406 



004737 
012704 
010465 
004737 

103407 
010001 



002310 
046452 
050122 
050420 
000000 
016336 



j REPEAT FOR BYTE COUNT 
MOV el, COUNT 
j Do a Write Subsystem WRITE FIFO 
150$; 

COUNT, RO 

♦T17EXSTA,R1 

PC.T17WFIF 

eT17PK2,R4 

R4.TSDBCR5) 

PCCHKTSSR 

152$ 



MOV 
MOV 
JSR 
MOV 
MOV 
JSR 



152$: 



FORCERROR 

BCS 160$ 

MCV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T 1 75SSR , PKTSSR 



jGET FIRST BYTE COUNT 

with the current byte count 

I REPEAT LOOP LABEL 

jFIFO BYTE COUNT 

»FIFO WRITE DATA ADDRESS 

I SETUP T17PK2 FOR WRITE FIFO 

,GET WRITE SUBSYSTEM COMMANO PACKET 

i SET THE PACKET ADDRESS TO EXECUTE 

lUAIT FOR SSR TO SET 

jSQOFORCE ERROR IF FOHCER-1 
jBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



002222 



050054 

01>0420 
000000 
016336 



160$: 



INC 




FATFLG 


CKLOOP 






Do a 


Wr 


ite 


Subsystem 

, T17RSFIF 


JSR 




PC, 


MOV 




*T17PK2,R4 


MOV 




R4, 


JSDBCR5) 


JSR 




PC, 


.CHKTSSR 


FORCERROR 


162$ 


BCS 




170$ 


MOV 




RO, 


,R1 


NEXT 


.ERRNO 





TRAP 


C$ERDF 


.WORD 


64 7 


.WORD 


T175SSR 


.WORD 


PKTSSR 


{SET FATAL ERROR FLAG 




{LOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 



Write MiQc to Reset FIFO 

(SETUP PKT FOR WRITE MISC RESET FIFO 
{GET WRITE SUBSY5TEM COMMANO PACKET 
{SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOR SSR TO SET 

tBaOFORCE ERROR IF FORCER- 1 
:BR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 
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K13 



SEQ 0166 



3319 046142 






046142 


104455 




046144 


001210 




046146 


046732 




046150 


012046 




3320 046152 


005237 


002222 


3321 046156 






046156 


104406 




3322 






3323 






3324 






3325 






3326 046160 


004737 


050034 


3327 046164 


012704 


050420 


3328 046170 


010465 


000000 


3329 046174 


004737 


016336 


3330 046200 






3331 046214 


103407 




3332 046216 


010001 




3333 046220 






3334 046220 






046220 


104455 




046222 


001211 




046224 


046776 




046226 


012046 




3335 046230 


005237 


002222 


3356 046234 






046234 


104406 




3337 046236 


004737 


050216 


3338 046242 


012701 


046452 


3339 046246 


012702 


050312 


3340 046252 


011211 




3341 046254 


042711 


002000 


3342 046260 


042711 


001000 


3343 046264 


042711 


000400 


3344 046270 


016261 


000002 000002 


3345 046276 


005000 




3346 046300 


012701 


050272 


3347 046304 


012702 


046432 


3348 046310 


012703 


000024 


3349 046314 


004737 


011500 


3350 046320 






3351 046330 


103404 




3352 046332 






3353 046332 






046332 


104456 




046334 


001212 




046336 


04 7 724 




046340 


012350 




3354 046342 






046342 


104406 




3355 






3356 






3357 046344 






3358 046344 






3359 046354 


00523 7 


002310 


3360 046360 


023727 


002310 000101 



162$: ERRDF ERRN0.T172SSR, PKTSSR 



170$; 



177$; 



180$: 



192$: 



200$: 



250$; 



INC 
CKLOOP 



FATFLG 



I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
jSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 



TRAP 



CIERDF 
648 

T1725SR 
PKTSSR 



C$CLP1 



Do a Wr!t« Subsystem 
If all Taps Status 2 
signals NOT-0 Then 
JSR PCT17SRD 

MOV OT17PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 177$ 

BCS 180$ 

MOV R0.R1 

NEXT.ERRNO 
ERRDF ERRN0.U73SSR, PKTSSR 



REAO STATUS 

(ICER.IFMK.IHER) flip-flop 
Print Error 



NEXT.ERRNO 

ERRHRD ERRN0.T177CMP.MSGSTAT 



CKLOOP 



FORCEXIT 260$ 

INC COUNT 

CMP COUNT ,065. 



I SETUP PACKET FOR READ STATUS 
{GET WRITE SUBSYSTEM COMMAND PACKET 
: SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


649 


.WORD 


T173SSR 


.WORD 


PKTSSR 



INC 


FATFLG t 


CKLOOP 




JSR 


PC.T17SETEXP | 


MOV 


♦T17EXSTA.R1 ; 


MOV 


OT17BFSTA.R2 j 


MOV 


(R2),CR1) j 


BIC 


♦Sl.ICER.(Rl) j 


BIC 


0S1.IFMK.CR1) i 


BIC 


OSl.IHER.(Rl) j 


MOV 


2(R2).2(R1) i 


CLR 


RO ; 


MOV 


0T17BFR.R1 j 


MOV 


OT17EXP.R2 j 


MOV 


#20., R3 j 


JSR 


PC.CKMSG2 i 


FORCERROR 192$,N0TSSR \ 


BCS 


200$ , 



SET FATAL ERROR FLAG 

LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
SET WORDS 0-7 EXPD-RECV (NOT TESTING) 
GET EXPECTED READ STATUS 
GET RECV READ STATUS 
SET EXPD WORD 08 - RECV TEMP 
SET EXPO ICER -0 
SET EXPD IFMK -0 
SET EXPD IHER -0 

SET EXPD WORD 09 - RECV (NOT TESTING) 
HIGH RECV ADDRESS FOR CKMSG2 
LOW RECV ADDRESS FOR CKMSG2 
EXPD ADDRESS 

NUMBER OF BYTES TO COMPARE 
EXPD EQUAL RECV? 
080 
BR IF YES 



I REPORT ERROR 



I LOOP ON ERROR, IF FLAG 



j GET NEXT BYTE COUNT 
jOONE ALL BYTES? 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 

650 

T177CMP 

MSGSTAT 

C$CLP1 



L13 
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3361 046366 


101002 




3362 046370 


000137 


046014 


3363 046374 






3364 






3365 046374 






046374 






046374 


104403 




3366 






3367 046376 


005737 


002222 


3368 046402 


001402 




3369 046404 


004737 


017202 


3370 046410 


004737 


016456 


3371 046414 


103002 




3372 046416 


000137 


040454 


3373 046422 






3374 






3375 046422 






046422 


104432 




046424 


002112 




3376 






3377 






3378 






3379 






3380 






3381 






3382 






3383 046426 






3384 






3385 046426 


377 




3386 046427 


037 




3387 046430 


360 




338e 046431 


000 




3389 






3390 046432 






3391 046432 


000000 




3392 046434 


000000 




3393 046436 


000000 




3394 046440 


000000 




3395 046442 


000000 




3396 046444 


oooooo 




3397 046446 


000000 




3398 046450 


oooooo 




3399 046452 






3400 046554 






3401 






3402 046554 






103 






■;04 






3405 






3406 






3407 






3408 046656 


106 


ill 


3409 046675 


127 


122 


3410 046732 


127 


122 


3411 046 7/6 


327 


122 


3412 047043 


127 


122 


3413 047106 


127 


122 



260$ 



BHI 

JMP 



ENDSU8 



260$ 
150$ 





TST 


FATFLG 




BEQ 


300$ 




JSR 


PC.CKDROP 


300$: 


JSR 


PC.TSTLOOP 




BCC 


305$ 




JMP 


T17L00P 


305$: 







EXIT 



TST 



j LOCAL STORAGE FOR THIS TEST 
i - 



T17MSK: 



BYTE 
BYTE 
BYTE 
BYTE 



tc<ooo> 

tC<340> 
tC<017> 




T17EXP: 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORO 

.WORD 

T17EXSTA: .BL.KB 66. 

T17EXEN0: 

T17WFDATA: .BLKB 66 



J ♦ 

I LOCAL 
J - 



TEXT MESSAGES FOR TEST 



SEQ 0167 



}BR IF YES 
j DO ANOTHER 



BYTE COUNT 



;//////////// END SUBTEST ////////// 

L10064: 

TRAP CJESUB 

( ANY FATAL ERRORS ? 

i BRANCH IF NOT 

j TRY TO DROP THE UNIT 

iDO ITERATIONS? 

I BR IF NO 

} LOOP UNTIL ITERATIONS DONE 



X////////// EXIT TEST 



////////// 

TRAP CSEXIT 
.WORD L10056-. 



IN 
TO 



REAO 
1 



STATUS BYTES 



jMASK OF UNTESTED BITS 

jUNTESTED BITS ARE SET 

iBYTE MASK 

iBYTE 1 MASK (PARERR .IRESV2 , IRESV1 ) 

iBYTE 2 (TIMER A, TIMER B .UNDEFINED* 1 : 0> ) 

j MAKE IT EVEN 

l BEGIN EXPECTED DATA BUFFER 
l MESSAGE TYPE 
{DATA FIELD LENGTH 
jRBPCR 
;XSTO 
jXSTl 
} XST2 
|XST3 

|XST4 (ALWAYS PRESENT 

;EXPECTED READ STATUS 

jEND EXPECTED 



FOR WRITE Slfc. ) 
AND WRITE FIFO DATA 
DATA BUFFER 



j WRITE FIFO EXPECTED DATA BUFFER 



06 TST17I0: 
T17SSR: 
T172SSR 
T173SSR 
T1/4SSR 
T175SSR 



.ASCIZ 'FIFO Exerciser' 

.ASCIZ 'WRITE CHARACTERISTICS Failed' 

.ASCI/ 'WRITE SUBSYSTEM (Write M i sc ) F'ailtd 1 

.ASCIZ 'WRITE SUBSYSTEM (Read Status) Failed 

.ASCIZ 'WRITE SUBSYSTEM (Write Npr ) Failed' 

.ASCIZ 'WRITE SUBSYSTEM (Writ* FIF(J) Failed' 
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SEQ 016B 



3414 


047152 


127 


122 


111 


3415 


047215 


106 


111 


106 


3416 


047277 


122 


145 


141 


3417 


047373 


106 


111 


106 


3418 


047457 


106 


111 


106 


3419 


047542 


122 


145 


141 


3420 


04 7616 


106 


111 


106 


3421 


047724 


106 


111 


106 


3422 










3423 










3424 










3425 










3426 










3427 


050010 








3428 


050010 








3429 


050014 


012701 


050272 




34 30 


050020 


012702 


000120 




3431 


050024 


105021 






3432 


050026 


005302 






3433 


050030 


003375 






3434 


050032 


000207 






3435 










3436 










3437 










3438 










3439 


050034 








3440 


050034 


004/37 


050010 




3441 


050040 


012700 


050430 




3442 


050044 


112720 


000005 




3443 


05005C 


105010 






3444 


050052 


000207 






3445 










3446 










344/ 










3448 










3449 


050054 








3450 


050054 


004 737 


050010 




3451 


050060 


012700 


050430 




3452 


050064 


112720 


000010 




3453 


050070 


112710 


000030 




34 54 


050074 


000207 






3455 










3456 










3457 










3458 










3459 










3460 










3461 










3462 










5463 










.3464 


0500 76 








3465 


0500 76 


004737 


050010 




3466 


050102 


012701 


0504 30 




3467 


050106 


112721 


000011 




3468 


050112 


052700 


000020 




3469 


050116 


110011 






34 70 050120 


0Q020? 







T176SSRj , ASCIZ 'WRITE SUBSYSTEM (Read FIF'J) Foiled' 

T171CMP: .ASCIZ 'FIFO Statue in WORD 09 ^nccr-ert after Initialize 



T172CMP} , ASCIZ 
T173CMP: .ASCIZ 
T174CMP: .ASCIZ 
T175CMP:. ASCIZ 
T176CMP: .ASCIZ 
T177CMP:, ASCIZ 
.EVEN 



•Read FIFO Data not eque *y W-ict FIFO , Data is in WORD 08' 

•FIFO Statue (In WORD 09) ln:r -,-ect *fter WRITE FIFO' 

•FIFO Statue (In WORD 09) Incvrreot after READ FIFO* 

'Read FIFO Data not equal ♦ y Write FIFO Data' 

'FIFO Statue (In WORD 09) Incorrect after READ FIFO from an Empty FIFO' 

'FIFO Status CIn WORD 09) Incon ect after RESET FIFO* 



i ♦ 



CLEAR MESSAGE BUFFER 



T17CLRBUF; 






SAVREG 






MOV 


0T17BFR.R1 




MOV 


0T17BEND-T17BFR,R2 


10$: 


CLRB 


(Rl)* 




DEC 


R2 




BGT 


10* 




RTS 


PC 


j ♦ 

j SETUP 


T17PK2 


PACKET FOR READ STA 


T17SRD: 








JSR 


PC.T17CLRBUF 




MOV 


0T17DT2.R0 




MOVB 


OPW.RDSTATUS.CROW 




CLRB 


(RO) 




RTS 


PC 



{SAVE R1-R5 UNTIL NEXT RETURN 
j GET MESSAGE PUFFER ADDRESS 



;SIZE OF 
i CLEAR A 
(DONE? 
tBR I." NO 
{RETURN 



MESSAGE 
BYTE 



BUFFER IN BYTES 



{CLEAR MESSAGE BUFF FR 

{WRITE SUBSYSTEM DATA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

iCLEAR BSEL1 

{RETURN 



J ♦ 



SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 



T17RSFIF: 

vJSR 

MOV 

MOVB 

MOVB 

RTS 



PC.T17CLRBUF 

OT17DT2.RO 

OPW.WMXSC.CRO)* 

OMS.RSFIFJMS.RSTAP.CRO) 

PC 



{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM OATA BUFFER 

{STORE WRITE MISCELLANEOUS IN BSELO 

{STORE BSfcl.l CLEAR FIFO CODES 

{RETURN 



} ♦ 



SETUP T17PK2 PACKET FOR WRITE NPR 



INPUT; 



RO CONTAINS BSEL.l NPR DATA 

SETS NP.WRP SINCE IF IT WRITES WRONG PARITY 



U'/SNPRi 



JSR PC.T17CLRBUF 

MOV OT17DT2.R1 

MOVB 0PW.WNPR,(R1)> 

BIS ONP.WRP,RQ 

MOVB R0.CR1) 

RTS PC 



I CI EAR MESSAGE BUFFER 
iWRITt SUBSYSTEM DATA BUFFER 
{STORE WRITE NPR IN BSELO 
iDON'T WRITE WRONG PARITl 
iSTORfc NPR OATA IN BSEL1 
1 RE TURN 



N13 
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SEQ 0169 



34 71 

34 72 

34 73 

3474 

3475 

34 76 

3477 

34 78 

3479 

3480 

3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

350C 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

352 7 

3529 



050122 
050122 
050126 
050132 
050136 
050142 
050144 
050146 
050150 
050152 
050154 



050156 
050156 
050162 
050166 
050172 
050174 



050176 
050176 
050202 
050206 
050210 
050212 
050214 



050216 
050216 
050222 
050226 
050232 
050234 
050236 
05Q240 



004737 050010 
012702 050430 



112722 
110022 
005022 
112122 
005300 
003375 
000207 



004737 
012701 
112721 
110021 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
000207 

050250 



000004 



050010 
050430 
000003 



012701 046432 

012700 000122 

105021 

005300 

003375 

000207 



046432 
050272 
000010 



i ♦ 

J 

l 

j 



SETUP T17PK2 PACKET FOR WRITE FIFO 



INPUT; 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



T17WFIF; 

SAVREG 

JSR PC.T17Cl.RBUK 

mov #Ti7u i:\na 

MOVB #PW,Wf I* 0.CR2)* 

MOVB R0.CR2)* 

CLR (R2)* 

10$: MOVB (Rn*,(R2)t 

DEC RO 

BGT 10$ 

RTS PC 



I SETUP T17PK2 PACKET FOR READ FIFO 

I INPUT: 

i RO CONTAINS SEL2 BYTE COUNT 



j SAVE R1-R5 UNTIL NEXT RETURN 

{CLEAR MESSAGE BUFFER 

{WRITE SUBSYSTEM DATA BUFFER 

iSTORE WRITE FIFO IN BSELO 

{STORE BYTE COUNT IN BSEL1 

j CLEAR SEL2 C UNUSED) 

, STORE DATA PATTERN BYTE 

{DONE ALL BYTES? 

{BR IF NO 

{RETURN 



T17RFIF; 




JSR 


PC.T17CLRBUF 


MOV 


OT17DT2.Hl 


MOVB 


♦PW.RFIFO.CRl)* 


MOVB 


RO.(Rl)* 


RTS 


PC 



i CLEAR EXPECTED DATA MESSAGE BUFFER 

T17CLEXP: 

MOV 0T17EXP.R1 

MOV #T1 7EXEND • T 17EXP , RO 

10$: CLRB (Rl)* 

DEC RO 

BGT 10$ 

RTS PC 



j CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
{STORE READ FIFO IN BSELO 
{STORE BYTE COUNT IN 3SEL1 
I RETURN 



{GET EXPO ADDRESS 
(GET EXPO SIZE 
jL. EAR A BYTE 
; )ONE? 
I.1R IF NO 
{RETURN 



{Set WORDS 0-7 of expd message buffer* * to recv since not testing 



T17SETEXP: 
MOV 

MOV 
MOV 
5$: MOV 
DEC 
BGT 
RTS 



0T17EXP.R2 

OT17BFR,R3 

08, ,R0 

CR3)+,(R2)+ 

RO 

51 

PC 



{GET EXPD 

{GET READ STATUS RECV BUKFLR 

j SET WORDS 0-7 EXP-RECV 

{SET EXPD-RECV 

i DONE WORDS 0-7 WORDS? 

iBR IF NO 

1 RETURN 



■<**1Q>617777G 



HI 4 
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StQ 0170 



3530 
5531 
3532 
3535 
3554 
j535 
3556 
3537 
3538 
3539 
3540 
3541 
354? 
354 5 
3544 
3545 
3546 
3547 
3546 
3549 
3550 
3551 
3552 
3553 
3554 
3555 
3556 
355/ 
3558 
5559 
3560 
3561 
3565 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
357? 
3573 
35 74 
35/5 
35/6 
3577 



35 75 
35 7<; 
3580 
3581 
358.' 
358 5 
3584 
358V 
5t>86 



050250 
050250 
050252 
050254 
050256 

050260 
050260 
050262 
050264 
050266 
050270 



050272 
050272 
050274 
050.? 76 

050 300 
050302 
050 304 
050306 
050310 
050512 
050412 



05O420 
050420 
050422 
050424 
050426 

0504 30 
0504 30 
050431 
0504 32 
0504 34 

C 505 36 
050536 
050536 



100004 
050260 
000000 
000012 



0502 U 
000000 
00O024 
000000 

oooooo 



000000 

oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 
oooooo 



05O420 

100006 
0504 30 

oooooo 

000012 



000 
000 

oooooo 



104401 



jWRITE CHARACTERISTICS COMMAND PACKET 

Tl/PACKETi 

.WORD 
.WORD 
.WORD 
.WORD 



100O04 

T17DATA 



10. 



T17DATAi 



.WORD 
.WORD 
,WOR0 
.WORD 
.WORD 



1 1 /BFR 



20, 







iCOMMANO PACKET FOR TEST 

I WRITE CHARACTERISTICS COMMANO. WITH ACK 

j ADDRESS OF CHARACTERISTICS BLOCK 

iMINIMUM MESSAGE PACKET SIZE 

iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

lESS.ENB.EAI.ERI 

jEXTENOED FEATURE5 UNIT NO. ETC. 



jMESSAGf BUFFER FOR ALL TEST 6 COMMANDS 

T17BFRi 

.WORD 

.WORO 

.WORD b 

.WORD 

.WORD 

.WORD 

.WORO 

.WORO 

T17BFS1A, .BLKB 64, 
U7BEN0i 

iWRITF SUBSYSTEM READ STATUS COMMAND PACKET 



jeEGIN MESSAGE BUFFER 

jMESSAGE TYPE 

iDATA FIELD LENGTH 

iRBPCR 

IXSTO 

jXSTl 

|XST2 

IXST3 

lXST4 (ALUAYS PRESENT FOR WRITE SUBSYSTEM 

iREAD STATUS ANO WRITE FIFO BUFFER 

lEND OF MESSAGE BUFFER 



T 1 7PK.J j 



.•«.»10»6177770 



T17DT2J 



.WORD 


P.WRfSUBfP 


ACK 


iWRITE SUBSYSTEM WITH ACK 


.WORD 


Tl'DT? 




lLOW AOORESS OF DATA BLOC 


.WORO 







jHIGH ADORESS OF DATA BLOCK 


.WORD 


10. 




iMINIMUM MESSAGE PACKET SI«TE 
iDATA BLOCK 


.BTTE 







iBSE'LO 


.ByTF 







iBSEL 1 


.WORD 







ISEL2 


.BLKB 


66, 




jWRITE FIFO DATA OUTPUT BUFFER 



ENOTST 

.sent TfsT 

TEST DESCRIPTION 



L10056i 



TRAP C*ETST 



f\ STATIC TRANSPORT BUS INTERFACE TEST 



TEST STfPS; 

REPEAT FOR LUOPCNT 
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CI 4 



5EQ 0171 



356 > 

35? 8 

356*> 

3590 

35<u 
3592 

3593 
3594 
3595 
3596 
359 7 
3596 
3599 

3604 
3605 
3606 
360/ 
3606 
S609 
3610 
3611 
361? 
3613 



3614 
3615 
3616 
3617 
3616 
3619 
3620 
3621 
.3622 
3623 



3624 
3625 

3626 
362? 
3626 
3629 
36 30 
-3651 
3652 
3633 
36 54 
36 55 
36 56 
3637 



050540 
050540 
050540 
050544 
050550 
050556 

050556 
050556 
050562 
050564 
050566 
050566 
0505 70 
0505 72 
050574 



050576 
050602 
050606 
050612 
050626 
050630 
050632 
0506 52 
050632 
050634 
050636 
050640 
050642 
050646 
050646 



050650 
050654 

050662 
050664 

0506 70 
05O&74 
050 '00 
050 704 
050 720 



012700 
0O4737 
012737 



0O4737 
103405 
OlOOOi 

104455 
001274 
003652 
012034 



005037 
012704 
0O4737 

103407 
010001 



104455 
001275 
051305 
012046 
005237 

104406 



012701 
052761 
001026 
004757 
012704 
010465 
004737 

103*07 



HfcGIN 

Write to TSSR ^egleter to eoft initleli/i the controller 

Do WRITE CHARACTERISTICS to checW tor Fxtended Feeturee Switch 

If Extended Fenturee H«ro>H»r« Snitch Clear then: 

Do Write Subeyetem Write Mi ecellanecue to Set Extended Feature* , 
Do WRITE CHARACTERISTICS to eelect rmvrvd unit 7 
Do e Writ* Subeyetem READ STATUS 

If eny transport interface aignala art aeeerted then Print Error 
ENO 



051246 
016510 
000012 002216 



015774 



TI6LUOP1 

I 



B&NTST 

MOV 
JSR 
MOV 



♦TST16ID.R0 
PC.TSTSETUP 
♦10, .LOOPCNT 



T7: : 
lASCII MESSAGE TO IDENTIFY TEST 
(DO INITIAL TEST SETUP 
I PERFORM 10 iTfRAT'ONS 



5lj 



Write to TSSR register to eoft initialize the controller 



JSR PC.SOflNIT 

BCS 101 

MOV R0.R1 

ERRDF ERRNO, SFIERR , SF IMSG 



lURITE TO TSSR TO SOFT INITIALIZE 

iBR If SOFT INIT 0*<AY 

iSAVF CONTENTS OF TSSR 

iDFVZCF. FATAL DURING INU 

TRAP 
.WORD 
,WO«0 
.WORD 



C*ERDF 
700 

SFIERR 
SFIMSG 



002222 
^51730 
010662 



101 j 



Do WRITE CHARACTERISTICS to ChecU for Extensa Features Switch 



121 



CLH FATFLG 

MOV ♦T16PACKET.R4 

JSR PC.WRTCHR 

FORCFRROR 121 

BCS 15$ 

MOV R0.R1 

NCXT. ERRNO 

ERRDF ERRNO, TieSS&.PKTSSA 



002222 



151 



INC 
CKLOOP 



FATFLG 



051752 
000200 

051576 
052000 

oooooo 
016336 



If Extended feeturee Herd*i 
Oo Write Subeyetem Write 



0000 u 



MOV 


♦Ti68FR,Rl 


BIT 


♦X2.EXTF # XST2CR1) 


BNE 


301 


JSR 


PC.T16SMISC 


MOV 


♦T16PK2.R4 


MOV 


R4,TSDaCR5) 


JSR 


PC.CHKTSSR 


FORCERRGR 22* 


ecs 


30 * 



jCLEAR FATA^ ERROR FLAG 

iGET TrC A0W«5S OF COMMAND PACKf T 

iDO WRITE CHARACTERISTICS COMMAND 

tfcfcOfORCE ERROR IF FORCER-l 
i3R IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 

IDEVICE FATAL S5R FAILED TO St f 

TRAP CIEROF 

.WORD 701 
.WORD T16SSR 
.WORD PK'TSSH 

i SET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 

TRAP CICl.Pl 

ire Switch Cleer then: 

Miecel leneooe to Set Extended Feature*. 
jh€S5AG€ BUFFER ADORESS 
1EXTEND£D FEATURES SWITCH SET? 
iBR IF YES 

iSFTUP PACKET FOR WRITE MISCELL.ANtOUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUM 
iWAIT FOR SSR TO 5ET 

ittttOFORCE ERROR If mRCLRU 
iBR IF CARRY SET (GOOD RETURN} 
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[VIA 



SEQ 0172 



3658 
3640 



364 1 
3642 

364 3 
3644 
3645 
3646 
364 7 
3648 
3649 
3650 
3651 
3652 
3653 



3654 

3655 

3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
36 70 
3671 
36 /2 



:6/* 
Vj/4 

36/5 
36 76 
36 7 7 
36 78 
36 79 



050722 
050724 
050724 
050724 
050726 
050730 
050732 
050734 
050740 
050740 



050/42 
050746 
05075? 
050756 
050772 
0507 74 
050776 
050 7 76 
0507 76 
051000 
051002 
051004 
051006 
051012 
051012 



051014 

051020 
051024 
051026 
051030 

051032 
051036 
051042 
051046 
051052 
051066 
051070 
051072 
0510/2 
051072 
0510 74 
051076 
051100 
05U02 
05110* 
051106 



010001 



104455 
001276 
051 M2 
012046 
005237 

104406 



00503/ 
012704 
004737 

103407 
010001 



104455 
001277 
051305 
012046 
005237 

104406 



012701 
015700 
105021 
005300 
003375 

0O4737 
012/04 
010465 
0O4737 

10340/ 
010001 



104455 
001500 
051406 

012046 
0052 5 7 

104406 



22*; 



002222 



30$t 



002222 
051730 
010662 



421: 



002222 



051752 

051744 



051556 
052000 
000000 
016336 



50$: 



601: 



62$: 



002222 



70$: 



MOV R0,R1 

Nf XT, ERRNO 

ERRDF ERRNO, T182S5R, PKTSSR 



INC FATFLG 

CKLOOP 



I SAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR ^AILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
»SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



C it RDF 

702 

T1825SR 

PKTSSR 



C$CL.P1 



Do WRITE CHARACTERISTICS to 

CLR FATFLG 

MOV ♦T18PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T 18SSR , PKTSSR 



•«l«ct r«t«rv«d unit 7 

iCLEAR FATAL ERROR FLAG 

I GET THE ADORESS OF COMMAND F'ACKET 

iDO WRITE CHARACTERISTICS CC^MANO 

iBSOFORCE ERROR IF FuRCER-1 
iBR IF CARRY SET ( GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



iDEVICE FATAL SS& 



INC 
CKLOOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 

TRAP 



ClERDf 
703 

T18SSR 
PKTSSR 



C$CLP1 



CUir 

MOV 

MOV 

CLRB 

DEC 

BGT 

Do • 

JSR 

HOV 

MOV 



^♦••©o* buffer 
♦T188FR.R1 

T180ATA»4,RO 
(Rl)» 
RO 
60$ 
Write Sub«y«t«m 
PC.T18S&D 
♦T18PK2.R4 
R4,T5DB(R5) 
PC.CHKTSSR 
62$ 



READ STATUS 



JSR 

FORCERROR 
BCS 70$ 

MOV R0.R1 

NEXT .ERRNO 

ERRDF FRRN0,T183SSR,PKYSSH 



iGET MESSAGE BUFFER ADORESS 
iSI/E OF MESSAGE BUFFER IN BfTES 
iCLEAR A BYTE 
j DONE? 
»BR IF NO 

jSETUP PACKET FOR REAO STATUS 
iGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE. PACKET ADORESS 10 EXECUTE 
iWAIT FOR SSR TO SET 

jBflOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS OF fSSR 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SbR FAILED TO SET 

TRAP 
.WORD 
.WORD 
4 WORD 



,SET FATAL ERROR FLAG 
:LOOP ON ERROR. IF FLAG 



SET 
TRAP 



ClfcRQF 
704 

T183SSR 
PKTSSR 



CICl.Pl 



051110 004 757 0*51620 



j«t f ! r«t 8 wO'di of «*pd m«««aa>'¥ buff«r 
>«t unu*#d bit* in R*rni Stotu« t*pd «Qual 



JSR 



PC.TittSETEXP 



to r«cv *!nct rtOt t«»t!ng 
I SET SOME EXPO TO RfcCV 
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E14 



SEQ 01/3 



3680 
3681 
368? 
368 3 
3684 
3685 
3686 
368? 
3688 
3689 



3690 

3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 



3700 
3701 
3/02 
3703 
3704 
3/05 
3706 
3707 
3708 
3 709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3 720 
3721 
3722 
3723 
3 724 
3725 
3726 

^t^1 

3/28 
5 729 



051114 
051116 
051122 
051126 
051132 
051136 
051146 
051150 
051150 
051150 
051152 
051154 
051156 
051160 
051160 

051162 
051166 
051170 
051174 
051200 
051202 
051206 
051206 
051206 
051210 



051212 
051212 
051213 
051214 
051215 

051216 
051216 
051220 
051222 
051224 
051226 
051230 
051232 
051234 
051236 
051240 

051242 
051244 



005000 
012701 
012702 
012703 
004737 

103404 



104456 
001301 
051453 
012350 

104406 

005737 
001402 
004737 
004737 
103002 
000137 



104432 
000606 



377 
037 
100 
OOO 



OOOOOO 
000000 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 

377 
OOOOOO 



051752 
051216 
000012 
011500 



If any 


transport in 


tarfaca 


CLR 


RO 






MOV 


0T18BFR 


Rl 




MOV 


0T18FXP 


,R2 




MOV 


*10. .R3 






JSR 


PC.CKMSG2 




FORCERROR 


82$ 


.NOTSSR 



82$ j 



90$: 



BC5 90$ 

NEXT.ERRNO 

ERRHRD ERRN0,T18CMP,MSUSTAT 



CKLOOP 



goals mrm •••artad than Print Error 
I HIGH RECV ADDRESS TOR CKMSG2 
I LOW RECV ADDRESS EOR CKMSG2 
jEXPD ADORESS 

j NUMBER Of WORDS TO COMPARE 
lEXPD EQUAL RECV? 
i»O0 
»BR IF YES 

j REPORT ERROR 



002222 

017202 
016456 

050556 





TST 


FATFl G 




BEQ 


160$ 




JSR 


PC.CKOROP 


160$: 


JSR 


PC.TSTLOOP 




BCC 


165$ 




JMP 


T18L00P 


165$t 







EXIT 



TST 



i ♦ 



iLOCAl. STORAGE FOR THIS TEST 



I 



T18MSK 



TlSEXPj 



020 



U8XS{ 



j LOCAL 
J - 



.BYTE 
.BYTE 

.BYTE 
.BYTE 



.UORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.Br Tt 

.WORD 



tC<000» 
tC<340> 
*C<277> 















SI 7,020 




TRAP 


CIERHRD 


.WORD 


705 


.WORD 


U8CMP 


.WORD 


MSGSTAT 


lLOOP ON ERROR, IF FLAG SET 




TRAP 


C$CLP1 


,ANY FATAL ERRORS 7 




I BRANCH IF NOT 




jTRY TO DROP THE UNIT 




»D0 ITERATIONS? 




iBR IF NO 




lLOOP UNTIL ITERATIONS DONE 




TRAP 


CIEXIT 


.WORD 


L10O65- 



MASK OF UNUSED BITS IN READ STATUS BYTES 

BYTE MASK 

BHE 1 

BYTE 2 

MAKE IT EVEN 

EXPECTED DATA BUFFER 

MESSAGE TyFE 

DATA FIELD LENGTH 

RBPCM 

XSTO 

xsu 

XST2 
XST3 

XST4 
READ 
READ 



(ALWAYS PRESENT * 1R WRITE SUB) 
STATUS OlTE 1/0 
STATUS BYTE 2 



READ 
READ 



STATUS BYTE 0/1 EXPECTED BASE 
STATUS BYTE 2 EXPECTED BASE 



TEXT MESSAGES FOR 
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F14 



SEQ 01/4 



3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 

3738 

3739 

3740 

3741 

3742 

3743 

3744 

3745 

3746 

3747 

3748 

3749 

3750 

3751 

3752 

3753 

3754 

3755 

3756 

3757 

3758 

3759 

3760 

3761 

3762 

3763 

3764 

3765 

3766 

3767 

3768 

3769 

3770 

3771 

3772 

3773 

37/4 

3775 

3776 

3777 

3778 

3779 

3 780 

3781 

3782 

3785 

3 785 

378/ 

?7ee 



051246 

051305 
051342 
051406 
051453 



051556 
051556 
051562 
051566 
051572 
051574 



051576 
051576 
051602 
051606 
051612 
051616 



051620 
051620 
051624 
051630 
051634 
051636 
051640 
051642 
051646 
051652 
051660 
051662 
051664 
051666 
051670 
051674 
051700 
051704 
051710 
051714 
051720 



123 
127 
127 
127 
124 



012700 
112720 
105010 
000207 



012700 
112720 
112710 
000207 



012702 
012703 
012700 
012322 
005300 
003375 
012701 
013712 
013762 
011300 
041100 
040012 
050012 
016300 
046100 
040062 
050062 
10506? 
105O65 
000207 

051730 



164 
122 
122 
122 
162 



052010 
000005 



052010 
000010 
000200 



051216 
051752 
000010 



051212 
051242 
051244 



000002 
00O002 
000002 
000002 
00OOO5 
000003 



141 
111 
111 
111 
141 



000002 



TST18ID; 

T18SSR; 

T182SSR: 

T183SSR; 

T18CMP} 



i ♦ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
•ASCIZ 
.EVEN 



, ASCIZ 'Static Transport Bus Interface' 

'WRITE CHARACTERISTICS Failed 1 

'WRITE SUBSYSTEM (Writa Miec^ Failed' 

•WRITE SUBSYSTEM (Read Statua) Failed' 

•Transport Bua Interface Slgnale NOT Negated After Unit 7 Selected 



I SETUP T18PK2 PACKET FOR READ STATUS 
T18SR0: 



SAVREG 
MOV 
MOVB 
CLRB 



OT18DT2.R0 

*PW,RDSTATUS t (RO>* 

iRO) 

PC 



l SAVE R1-R5 LUriL NEXT RETURN 

iWRITE SUBSYSTEM DATA BUFFER 

i STORE READ STATUS COMMAND IN BSELO 

l CLEAR BSEL1 

iRETURN 



i SETUP T18PK2 PACKET FOR WRITE M1SC, 



T18SMISC; 

SAVREG 

MOV 

MOVB 

HOVB 

RTS 



0T18DT2.R0 
•PW.WMISC.CRO)* 
0MS.EXT,(R0) 
PC 



iSAVfc R1-R5 UNTIL NEXT RETURN 

iWRITE SUBSYSTEM DATA BUFFER 

iSTORE WRITE MISCELLANEOUS IN BSfl.O 

I STORE INVEST EXTENOED FEATURES IN BSEL1 

iRETURN 



i * 



iSet 



first 8 words of sxpd 
Set unused bits in 



T18SETEXP: 




MOV 


0T18EXP.R2 


MOV 


OU8BFR,R3 


MOV 


06. .RO 


5$: MOV 


(R3).,(R2) 


DEC 


RO 


BGT 


5* 


MOV 


OTIAHSK.RI 


MOV 


U8XS.CR2) 


MOV 


T18XS»2,2( 


MOV 


(R3),R0 


BIC 


(Rl).RO 


BIC 


R0.CR2) 


BIS 


R0,(R2) 


MOV 


2(R3).RO 


BIC 


2CRD.R0 


BIC 


RO, 2(R2) 


BIS 


R0.2CR2) 


CLRB 


3(R2) 


CLRB 


3(R3) 


RTS 


PC 



meesaoe buffer • to recv since not testing 
Read Status enpd equal revd 



GET EXPO 

GET READ STATUS RECV PUFFER 

SET FIRST 8 WORDS EXP-RECV 

SET EXPO-RECV 

DONE FIRST 8 WORDS? 



R2) 



BR IF NO 
GF' LfWSED 
SETUP BASE 
SETUP BASE 
GET RECV BYTE 
CLEAR ALL BUT 



BTT MASK 

EXPECltU 

EXPECTFI) 
1 ANO 
UNUSED 



Mi T F 
HYH 
Bt IE 



I/O 
2 





CLEAR UNUSED IN EXP 
SET UNUSED EXPD-RECV 
GET RECV BYTE 2 
CLEAR ALL BUT UNUSED 
CLEAR UNUSED IN EXPO 
SET UNUSED EXPD 
CLEAR EXPD BYTE 
CLEAR RECV BYTfc 
RETURN 



FOR COMPARE 



RECV FOR COMPARE 
3 (UNUSED) 
3 (UNUSED) 



.•<. ♦10>£177770 
iWRITE CKARARTERISTICS COMMAND PACKET 
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G14 



SEQ 0175 



3789 
3790 
3791 
3 792 
3793 
3794 
3795 
3 796 
3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 
3819 
3821 
3C22 
3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 
3831 
3832 
3833 
3834 



3835 
3836 

383 7 
3838 
3839 

3840 
3841 
3842 
3843 
3844 
3845 



051730 
051730 
051732 
051734 
051736 

051740 
051740 
051742 
051744 
051746 
051750 



05175? 
0517^2 
051754 
051756 
051760 
051762 
051764 
051766 
051770 
0517/2 
051774 



052000 
052000 
052002 
052004 
052006 

052010 
052010 
052011 
052012 
052014 



052016 
052016 
052016 



100004 
051740 
000000 
000012 



051752 
000000 
000024 
000000 
000007 



000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



052000 

100006 
052010 
000000 
000010 



ooo 

000 
000000 
000000 



104401 



J 



T18PACKET: 




.WORD 


100004 


. WORD 


T18DATA 


.WORD 





.WORD 


1C. 


T13DATA} 




.WORD 


T16BFR 


.WORD 





.WORD 


20. 


.WORD 





.WORD 


7 


T18BFR* 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 






I COMMAND PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMANO, UITH ACK 

j ADDRESS OF CHARACTERISTICS BLOCK 

jMESSAGE PACKET MINIMUM SIZE 

jCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGF BUFFER 
lESS.ENB.EAI.ERI 
jSELECT RESERVED UNIT 7 



iMESSAGE BUFFER 

^MESSAGE TYPE 

iDATA FIELD LENGTH 

iRBPCR 

jXSTO 

jXSTl 

|XST2 

jXST3 

jXST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 

jREAD STATUS BYTE 1/0 RETURNED 

tREAD STATUS BYTE 2 



jWRITE SUBSYSTEM READ STATUS COMMAND PACKET 



.-<. *10>£177770 



T18PK2: 








.WORD 


P.WRTSUBJP.ACK 




.WORD 


T18DT2 




.WORD 







.WORD 


8. 


T18DT2s 








.BYTE 







.BYTE 







.WORD 







.WORD 






jURITE SUBSYSTEM UITH ACK 
jLOW ADDRESS OF DATA BLOCK 
i HIGH ADDRESS OF DATA BLOCK 
jBUFFER EXTENT 

j DAT A BLOCK 

jBSELO 

iBSELl 

»SEL2 

;DATA 



ENDTST 



L 10065: 



.SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 



TRAP 



CSETST 



TEST DESCRIPTION: 



This tast ar ifSaa tha controUtr'i Transport Bua 
drivara, ucalvara, and atonal loopback logic. Nots 
that thr jtattc Transport Sua taat must havt run 
eorptc* y For this test to provlda maaninQful results. 



TEST STEPS 



H14 
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SEQ 0176 



3846 
384 7 
3848 
3849 
3850 
4851 
3852 
3853 
3854 
3855 
3856 

3861 
3862 
3863 
3864 
3865 
3866 
3867 
3868 
3669 
3870 
3871 
3672 
3873 
3874 
38 75 
3876 
387 7 
3878 
3879 
3880 
3881 
3882 
3883 
3884 
3885 
3686 
3887 
3888 
3889 
3890 
3891 
3892 
3893 
3894 
3895 
3896 
3897 
3898 
3899 
3900 
3901 
3902 
3903 
3904 
3905 



REPEAT FOR LOOPCNT 
BEGIN 

Do Subte*t 1 

Do Subtest 2 

Do Subtest 3 

Do Subtest 4 
END 



- Loopback Control signals test 

- Loopback Read/Write •locals test 
• Loopback Writ* Strobe teet 

- Loopback Read Strobe test 



052020 

052020 

052020 012700 060232 

052024 004737 016510 

052030 012737 000012 002216 

052036 



T19L0OP; 



BGNTST 

MOV 
JSR 
MOV 



*TST19ID,R0 
PC.TSTSETUP 
*10.,L00PCNT 



T8: : 
(ASCII MESSAGE TO IDENTIFY TEST 
jDO INITIAL TEST SETUP 
I PERFORM 10 ITERATIONS 



.SBTTL TEST 8: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 

TEST 8: SUBTEST 1: 

SUBTEST DESCRIPTIONS 

This subtest v*rifi** th* Transport Control loopback 
path can transmit and r*c* i v* correctly. The 
control signal* urt all loopback atonal* other 
than the read/writ* data (IW<7:0> and IR<7;0>). 

TEST STEPS; 

The loopback signal* IFAD, ITADO. ITAD1 art tha tape unit s*l*ct 
lin*e. Sine* r***rv*d unit 7 mu*t r*main aalactad thaw* eignals 
or* alway* **t low, Thi* furth*r m*an* th* «ignal* they drive 
(ISPEED,IRDY,I0NO are only teeted in the low atate. 



BEGIN 



TSSR 



iete 



Write to ibbN reot 
Do WRITE CHARACTERIST 
If Entended Features 

Do Write Subeyetem 
Do WRITE CHARACTERIST 
Do a Write Subeyetem 
Do Write Subeyetem Wr 
Do Write Subeyetem Wr 
(the loopback aignal 

that ere a*t on a 1 
Do a Writ* Sub*yat*m 
Do a Writ* Subsystem 
If all Tape Statue 2 

signals N0T»0 Then 



r to eoft initialize the controller 

ICS to check for Extended Feature* Switch 

Hardware Switch Clear then: 

Write Miacellaneoue to Set Extended Features. 

ICS to aelect r***rv*d unit 7 and **tup BUFTER 

WRITE NPR to est tap* direction out and loopback 

it* Control to CLEAR loopback aignal* group 1. 

i te Format to CLEAR loopback eignals aroup 2. 

a have to be cleared here due to the f 1 ip- flops 

to transition f IHER, IFMK, ICER)) 
Writ* Misc to R*»#t Tap* Status F-FL0PS 
READ STATUS 

(ICER, IFMK, IHER) flip flop 
Print ^rror 



REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

Do Writ* Sub*y*t*m Writ* Control to Drive loopback signals group 1. 
Do Write Sub*y*t*m Writ* Format to Driv* loopback signals group 2. 
Do a Write Subsystem READ STATUS 
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114 



SEQ 0177 



3<K>6 
3907 
3908 
3909 
3910 
3911 
3912 
3913 



3914 

3915 
3916 
3917 
3918 
3919 
3920 



3921 
3922 
3923 
3924 
3925 
3926 
392 7 
3928 
3929 



3930 
3931 

3932 
3933 
3934 
3935 
3936 
3937 
3938 
3939 
3940 
3941 
3942 
3943 
3944 
3945 



3^46 
3947 



G52036 
052036 
052036 



052040 
052040 
052044 
052046 
052050 
052050 
052052 
052054 
052056 

052060 
052064 
052070 
052074 
052110 
052112 
052114 
052114 
052114 
052116 
052120 
052122 
052124 
052130 
052130 



052132 

052136 
052144 
052146 
052152 
052156 
052162 
052166 
052202 
052204 
052206 
052206 
052206 
052210 
052212 
052214 
052216 
052222 



104402 



004737 
103405 
010001 

104455 
001440 
003652 
012034 

005037 
0127O4 
004737 

103407 
010001 



104455 
001441 
060273 
012046 
005237 

104406 



012701 
032761 
001026 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
0014^2 
060330 
012046 
005237 



END 



If loopback data NOT' 
Do a Writa Subeyetem 
Do a Writa Subayetem 
If all Tapa Statua 2 
signal© NOT«0 Then 



•ant 

Miac 

STATUS 



data 

Writa 
READ 

CICER,IFMK,IHER) 
Print Error 



Then Print Error 

to React Tape Status F -FLOPS 



flip-flop 



015774 



i 
5*s 



002222 
062360 
010662 



10$: 



12$} 



002222 



062402 
000200 

062232 

062530 
000000 
016336 



151: 

i 
J 



000012 



aat 



002222 



BGNSU6 



,//////////// BEGIN SUBTEST ////////// 

T8.1: 

TRAP CJBSU6 



Write to TSSR register to soft initialize the controller 



JSR PC.SOriNIT 

BCS 10$ 

MOV R0.R1 

ERRDF ERRNO , SF IERR , SF IMSG 



iWRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAY 
i SAVE CONTENTS OF TSSR 
jDEVICE FATAL DURING INIT 

TRAP 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T19PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, T19SSR, PKTSSR 



.WORD 
.WORD 
.WORD 
Switch 



C$ERDF 
BOO 
SFIERR 
SFIMSG 



to check for Extended Feature* 
jCLEAR FATAL ERROR FLAG 
jGET THE ADDRESS OF COMMAND PACKET 
jDO WRITE CHARACTERISTICS COMMAND 

lOOOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



j SET FUAL ERROR fLAG 
j LOOP ON ERROR, IF FLAG 



If Extended F-jaturee Hardware Switch Clear then 
Oo Write Subsystem Writa M iscel leneoue to Set 



SET 
TRAP 



C$ERUF 
801 

T19SSR 
PKTSSR 



C$CLP1 



MOV *T196FR.R1 

BIT ax2,EXTF,XST2(Rl) 

BNE 30$ 

JSR PC.T19SEXT 

MOV 0T19PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 22% 

BCS 30$ 

MOV R0,R1 

NEXT .ERRNO 

ERRDF ERRNO, U92SSR. PKTSSR 



Extended 
ADDRESS 

SWITCH 



SET? 



30$: 



INC 
CKLOOP 



FATFLG 



Features, 
jMESSAGE BUFFER 
{EXTENDED FEATURES 
jBR IF YES 

iSETUP PACKET FOR WRITE MISC INVERT 
jGET WRITE SUBSYSTEM COMMAND PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



i SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 



FAILED TO SET 




TRAP 


CIERDF 


.WORD 


602 


.WORD 


T 192 SSR 


.WORD 


PKTSSR 



J 14 
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SEQ 0178 



3948 
3949 
3950 
3951 
3952 
3953 
3954 
3955 
3956 



3957 
3958 

3959 
3960 
3961 
3962 
3963 
3964 
3965 
3966 
3967 
3968 
3969 
3970 



3971 
3972 

3973 
39 74 
3975 
3976 
3977 
3978 
3979 
3980 
3981 
3982 
3933 
3984 
3985 
3986 
3987 
3988 
3989 



052222 104406 



052224 
052230 
052234 
052240 
052254 
052256 
052260 
052260 
052260 
052262 
052264 
052266 
052270 
0522 74 
052274 

052276 
052302 
052306 
052312 
052316 
052322 
052326 
052342 
052344 
052346 
052346 
052346 
052350 
052352 
052354 
052356 
052362 
052362 



052364 
052366 
052372 
052376 
052402 
052406 
052412 
052416 
052422 
052436 
052440 
052442 
052442 
052442 
052444 
052446 
052450 



005037 
012704 
004737 

103407 
010001 



104455 
001443 
060273 
012046 
005237 

104406 

012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001444 
060441 
012046 
005237 

104406 



005000 
042 700 
042700 
042700 
0O4737 
012704 
010465 
004737 

10340/ 
010001 



104455 
001445 
060613 
012046 



002222 
062300 
010662 



\ 



42$: 



002222 



000100 
000040 
062072 
062530 
000000 
016336 



62$; 



002222 



70$; 



000200 
000100 
000040 
062172 
062530 

ooocoo 

016336 



82$; 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV OT19PACKET.R4 

JSR PC.WRTCHR 

FORCERROR 42$ 

BCS 50$ 

MOV R0,R1 

NEXT, ERRNO 

ERRDF ERRNO, U9SSR, PKTSSR 



TRAP C$CLP1 

to select reserved on it 7 

iCLEAP FATAL ERROR FLAG 

iGET THE ADDRESS OF COMMANO PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

jBSOFWCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS Of* TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 

TRAP C$ERDF 

.WORD 803 

.WORD T19SSR 

.WORD PKTSSR 





INC FATFLG 


50$s 


CKLOOP 


I 


Do a Write Subsystem 




MOV SNP.OUT.RO 




BIS *NP.LOOP,RO 




JSR PC.T19SNPR 




MOV 0T19PK2.R4 




MOV R1,TSDB(R5) 




JSR PC.CHKTSSR 




FORCERROR 62$ 




BCS 70$ 




MOV R0.R1 




NEXT.ERRNO 



i SET FATAL ERROR FLAG 
jLOOP ON ERROR. IF FLAG 



SET 

TRAP 
and 



C$CLP1 
Loopbaek 



WRITE NPR to set tape direction o^t 
.SET TAPE DIREC TION 0U1 
j SET LOOPBACK ENABLE 
i SETUP T19PK2 FOR WRITE NPR 
iGET WRITE SUBSYSTEM COMMAND PACKET 



I SET THE PACKET 
jWAIT FOR SSR TO 



ADDRESS 

;et 



TO EXECUTE 



lOaOFORCF ERROR IK FORCER-1 
jOR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS (^ TSSR 



ERRDF ERRNO , T194SSR , PKTSSR 



j DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



.SET FATAL ERROR FLAG 
j LOOP CN ERROR. IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



Do Write Subeyetem 
Do Write Subsystem 
( the loopbacW 
that are set 



SET 
TRAP 



C$ERDF 
604 

T194SSR 
PKTSSR 



C$CLP1 



CLR 


RO 




BIC 


eWC 


.IFAD.RO 


BIC 


ewe 


,IOTAD,RO 


BIC 


eUC 


.I1TA0.R0 


JSR 


PC, 


T19WCTL 


MOV 


0T19PK2.R4 


MOV 


R4, 


TSDBCR5) 


JSR 


PC, 


CMKTSSR 


FORCERROR 


82$ 


BCS 


90$ 




MOV 


RO. 


Rl 


NEXT. 


ERRNO 




ERRDF 


ERRNO, U97SSR, PKTSSR 



Write Control to CLEAR loopbeck signals group 1. 
Write Format to CLEAR loopback signal* group 2. 
signals hove to be cleared here due to the flip-flops 
on a 1 to transition (IHER.IFMK. ICER)) 

iWRITE O'S 

}IFAD MUST ALWAYS *0 

jITADO MUST ALWAYS -0 

lITAOl MUST ALWAYS -0 

i SETUP PACKET FOR WRITE CONTROL 

iGET WRITE SUBSYSTEM COMMAND PACKET 

,SET THE PACKET ADDRESS TO EXECUTE 

j WAIT FOR SSR TO SET 

tSfiOFORCE ERROR IF F0«CER»1 

jBR IF CARRY SET (GOOO RETURN) 

iSAVE CONTENTS OF TSSR 

jOEVICE FATAL 



SSR FAILED TO SET 




TRAP 


CSEHDr" 


.WORD 


805 


.WORD 


T197SSR 


.WORD 


PKTSSR 



K14 



TSV5 - HARDWARE TESTS MACRO M1200 20-MAR-84 08}26 PAGE 28-38 
TEST 8; SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 



3990 


052452 


005237 


002222 


3991 


052456 








052456 


104406 




3992 


052460 


005000 




3993 


052462 


004737 


062212 


3994 


052466 


012704 


062530 


3995 


0524 72 


010465 


000000 


3996 


052476 


004737 


016336 


3997 


052502 






3998 


052516 


103407 




3999 


052520 


010001 




4000 


052522 






4001 


052522 








052522 


104455 






052524 


001446 






052526 


060662 






052530 


012046 




4002 


052532 


005237 


002222 


4003 


052536 








052536 


104406 




4004 








400b 


052540 


004737 


062050 


4006 


052544 


012704 


062530 


4007 


052550 


010465 


000000 


4008 


052554 


004/37 


016336 


4009 


052560 






4010 


052574 


103407 




4011 


052576 


010001 




4012 


052600 






4013 


052600 








052600 


104455 






052602 


001447 






052604 


060330 






052606 


012046 




4014 


052610 


005237 


0022^2 


4015 


052614 








052614 


104406 




4016 








4017 








4016 








4019 


052616 


004737 


062030 


4020 


052622 


012/04 


062530 


4021 


052626 


010465 


000000 


4022 


052632 


004737 


016336 


4023 


052636 






4024 


052652 


103407 




4025 


052654 


010001 




4026 


052656 






4027 


052656 








052656 


104455 






052660 


001450 






052662 


0603 74 






052664 


012046 




4028 


052666 


005237 


002222 


4029 


052672 








0526 72 


104406 




4030 


052674 


004737 


0622 70 



130$: 

} 
i 
i 



140$ J 



INC 


FATFLG 


CKL.OOP 




CLR 


RO 


JSR 


PC. T19WFMT 


MOV 


0T19PK2.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.CHKTSSR 


FORCERROR 102$ 


BCS 


110$ 


MOV 


R0.R1 


NEXT. ERRNO 



102$: ERRDF ERRNO, U98SSR, PKTSSR 





INC FATFLG 


110$: 


CKLOOP 


j 


Do a Writ* Subsystem Write Mlsc 
JSR PC, T19RSFIF 






MOV *T19PK2,R4 




MOV R4.TSDBCR5) 




JSR PC.CHKTSSR 




FORCERROR 122$ 




BCS 130$ 




MOV R0.R1 




NEXT, ERRNO 



122$: ERRDF ERRNO, T192SSR, PKTSSR 



INC 
CKLOOP 



FATFLG 



SEQ 0179 



j SET FATAL ERROR FLAG 
iLOOP ON ERROR. IF FLAG SET 

TRAP 

jSET FORMAT DRIVE DATA-0 
j SETUP PACKET FOR WRITE FORMAT 
jGET WRITE SUBSYSTEM COMMAND PACKET 
>SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

;SaOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET CGOOD RETURN) 
j SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



I SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP 
to R«set Taps Status F -FLOPS 
iSETUP PKT FOR WRITE MISC Reset 
jGET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jOQDFORCE ERROR IF FORCER- 1 
»BR IF CARRY SET CGOOD RETURN) 
I SAVE CONTENTS OF TSSR 



C$CLP1 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


806 


.WORD 


T198SSR 


.WORD 


PKTSSR 



C$CLP1 

Tape Status F -FLOPS 



lUPVICF. FATAL SSR 



FAILED TO SET 
TRAP 
• WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



Do a Writs Subsystem 
If all Tape Status 2 
signals NOT-0 Then 
JSR PC.T19SR0 
MOV 0T19PK2.R4 
MOV R4.TSDBCR5) 
JSR PC.CHKTSSR 
FORCERROR 132$ 
BCS 140$ 
MOV R0.R1 
NEXT. ERRNO 
132$: ERRDF ERRNO, T193SSR, PKTSSR 



READ STATUS 

(ICER,1FMK,IHER) flip-flop 
Print Error 

jSETUP 



SET 

TRAP 



C$EROF 
80/ 

T192SSR 
PKTSSR 



CJCLPl 



PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

jOaOFORCE ERROR IF FORCER'l 



j BR IF CARRY SET (GOOD 
iSAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR 



RETURN) 



INC 
CKLOOP 

JSR 



FATFLG 



PC.T19SETLXP 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 

808 

T193SSR 

PKTSSR 



jSET FATAL ERROR FLAG 

l LOOP ON ERROR. IF FLAG SET 

TRAP C*ClPi 

jSET WORDS 0-7 EXPD-RECV (NO! TESTING) 
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L14 



SEQ 0X80 



4051 


052700 


012701 


060132 


4032 


052704 


012702 


062422 


4033 


052710 


011211 




4034 


052712 


042711 


002000 


4035 


052716 


042711 


001000 


4036 


052722 


042711 


000400 


4037 


052726 


016261 


000002 000002 


4038 


052734 


005000 




4039 


052736 


012701 


062402 


4040 


052742 


012702 


060112 


4041 


052746 


012703 


000024 


4042 


052752 


004737 


011500 


4043 


052756 






4044 


052766 


103404 




4045 


052770 






4046 


052770 








052770 


104456 






C52772 


001451 






0527 74 


061333 






052/76 


013064 




404 7 


053000 








053000 


104406 




4048 








4049 


053002 


005037 


060044 


4050 


053006 


012703 


002752 


4051 


053012 


012300 




4052 


053014 


010337 


002316 


4053 


053020 


042/00 


0O0200 


40S4 


053024 


042700 


000100 


4055 


053030 


042/00 


000040 


4056 


053034 


010037 


002312 


4057 








4058 








4059 


053040 


013700 


002312 


4060 


053 >44 


004737 


062314 


4061 








4062 


05! >50 


004 737 


062172 


4063 


053 )54 


012704 


062530 


4064 


053060 


010465 


OOOOOO 


4065 


053064 


004737 


016336 


4066 


053070 






4067 


053104 


103407 




4068 


053106 


010001 




4069 


053110 






4070 


053110 








053110 


104455 






053112 


001452 






053114 


060613 






053116 


012046 




40/1 


053120 


005237 


002222 


4072 


053124 








053124 


104406 




4073 








40/4 








40/5 








4076 


053126 


013700 


002312 


4077 


053132 


004737 


062314 



152$ 



160$ 



MOV 




0T19EXSTA.R1 




iGET EXPECTED READ STATUS 


MOV 




0T19BFSTA.R2 




iGET RECV REAO STATUS 


MOV 




(R2),(R1) 




jSET EXPO WORD 08 - RECV TEMP 


BIC 




0Sl.ICEft.CRl) 




t SET EXPD ICER -0 


BIC 




0S1,IFMK,(R1) 




1 SET /XPD IFMK -0 


BIC 




♦Sl.ISER.CRl) 




jSU F.XPD IHER -0 


MOV 




2(R2),2(ttl) 




jSET EXPD WORD 09 - RECV (NOT TESTING) 


CLR 




RO 




j HIGH RECV ADDRESS FOR CKMSG2 


MOV 




0T196FR,R1 




j LOW RECV ADDRESS FOR CKMSG2 


MOV 




0T19EXP,R2 




j EXPD ADDRESS 


MOV 




#20. ,R3 




i NUMBER OF BYTES TO COMPARE 


JSR 




PC.CKMSG2 




;EXPD EQUAL RECV? 


FORCERROR 152$,N0TSSR 


j SOD 


BCS 




160$ 




j BR IF YES 


NEXT 


ERRNO 






ERRHRD 


ERRNO, T197CMP 


MSGLOOP 


l REPORT ERROR 



CKLOOP 



tLOOP ON ERROR, IF FLAG 



TRAP 


C$ERHRD 


, WORD 


809 


.WORD 


T197CMP 


.WORD 


MSGLOOP 


SET 




TRAP 


C$CLP1 



j REPEAT FOR ALL TEST PATTERNS 

CLR T19PREV 

MOV 0TSTBLK.R3 

200$ s MOV (R3)*,R0 

MOV R3.TSTPTR 

BIC OWC.IFAD.RO 

BIC OWC.IOTAD.RO 

BIC OWC.IITAD.RO 

MOV RO.DATA 

; Do Writ* bubayatam Writ* 

iSoX) CALL T19CNVT TO 

MOV DATA.RO 

JSR PC,T19CNVT 



IN TSTBLK 



Control 



JSR 


PC, 


T19WCTL 


MOV 


0T19PK2 


.R4 


MOV 


R4, 


TSDBCR5) 


JSR 


PC 


CHKTSSR 


FORCERROR 




212$ 


BCS 


220$ 




MOV 


RO 


Rl 




NEXT 


.ERRNO 







TABLE 
lINIT 1-0 TRANSITION FLAG 
iGET FIRST PATTERN ADDRESS 
tGET A TEST PATTERN 
{SAVE POINTER INTO TSTBLK 
;IFAD MUST ALWAYS -0 
jTTADO MUST ALWAYS -0 
jITADl MUST ALWAYS -0 
jSE i DATA PATTERN 

to Oriv* loopback signals group 1. 
SETUP WRITE CONTROL PATTERN 

t GET TEST PATTERN 

j CONVERT PATTERN TO CONTROL ORIVE MASK 

jRO CONTAINS WHITE CONTROL DATA HERE 

j SETUP PACKET FOR WRITE CONTROL 

iGET WRITE SUBSYSTEM COMMANO PACKET 

iSET THE PACKET ADDRESS TO EXECUTE 

j WAIT FOR SSR TO SET 

jSOOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



21"$ 



LRROF ERRNO, T197SSR.PKTSSH 



j DEVICE FATAL SSR 



:>~> 



0$ 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.UORD 

.WORD 
.WORD 



l SET FATAL ERROR F LAG 
,LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 
810 

T197SSR 
PKTSSR 



C$CLP1 



1 330 



Do Writ* Subayatam Writ* Format to Driva ioopbock signals group 2. 

CALL T19CNVT TO SETUP WRITE CONTROL PATTERN 

MOV DATA.RO i GE T TEST PATTERN 

JSR PC.T19CNVT jCONVERT PATTERN TO FORMAT DRIVE MASK 
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M14 



SEQ 0161 



4078 


053136 


000300 






SUAB 


RO i 


WRITE FORMAT DATA RETURNED IN HIv M BYT 


4079 


053140 


004 737 


062212 




JSR 


PC.U9WFMT | 


SETUP PACKET FOR WRITE FORMAT 


4080 


053144 


012704 


062530 




MOV 


0T19PK2,R4 , 


GET URITE SUBSYSTEM COMMAND PACKET 


4061 


053150 


010465 


000000 




MOV 


R4.TSDBCR5) t 


SET THE PACKET ADDRESS TO EXECUTE 


4082 


053154 


004737 


016336 




JSR 


PC.CHKTSSR i 


WAIT FOR SSR TO SET 


4083 


053160 








FORCERROR 232* 


iSOOFORCE ERROR IF FORCER-1 


4084 


053174 


103407 






8CS 


240$ i 


BR IF CARRY SET (GOOD RETURN) 


4085 


053176 


010001 






MOV 


R0.R1 i 


SAVE CONTENTS OF TSSR 


4086 


053200 








NEXT.ERRNO 




4087 


053200 
053200 
053202 
053204 
053206 


104455 
001453 
060662 
012046 




232$} 


ERRDF 


ERRN0.T198SSR.PKTSSR t 


DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 811 
.WORD T198SSR 
.WORD PKTSSR 


4088 


053210 


005237 


002222 




INC 


FATFLG i 


SET FATAL ERROR FLAG 


4089 


053214 
053214 


104406 




240$} 


CKLOOP 


i 


LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 


4090 








J 


Do a Writ* Subsystem READ STATUS 




4091 


053216 


004737 


062030 




JSR 


PC.T19SRD i 


SETUP PACKET FOR REAO STATUS 


4092 


053222 


012704 


062530 




MOV 


0T19PK2.R4 , 


GET WRITE SUBSYSTEM COMMAND PACKET 


4093 


053226 


010465 


000000 




MOV 


R4,TSD8fR5) , 


SET THE PACKET ADDRESS TO EXECUTE 


4094 


053232 


004737 


016336 




JSR 


PC.CHKTSSR i 


WAIT FOR SSR TO SET 


4095 


053236 








FORCERROR 252$ 


lOSOFORCE ERROR IF FORCER-1 


4096 


053252 


103407 






BCS 


260$ t 


BR IF CARRY SET (GOOD RETURN) 


4097 


053254 


010001 






MOV 


R0.R1 i 


SAVE CONTENTS OF TSSR 


4098 


053256 








NEXT.ERRNO 




4099 


053256 
053256 
053260 
053262 
053264 


104455 
001454 
0603/4 
012046 




252$s 


ERRDF 


ERRN0.T193SSR, PKTSSR j 


DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 812 
.WORD T193SSR 
.WORD PKTSSR 


4100 


053266 


005237 


002222 




INC 


FATFLP j 


SET FATAL ERROR FLAG 


4101 


053272 
053272 


104406 




260$: 


CKLOOP 




LOOP ON EPROR. IF FLAG SET 

TRAP C$CLP1 


410? 








I 


If loopbacU data NOT- data sent Then Print Error 


4103 


J532 74 


004 737 


062270 




JSR 


PC.T19SETEXP 


SET WORDS 7 EXPD-RECV (NOT TESTING) 


4104 


053300 


012/01 


060132 




MOV 


*T19EXSTA,Rl 


GET EXPECTED READ STATUS 


4105 


053304 


012702 


062422 




MOV 


*T19GFSTA,K2 j 


GET RECV READ STATUS 


4106 


053310 


013711 


002312 




MOV 


DATA.CRl) | 


SET EXPO WORD 08 TO TEST DATA FIRST 


4107 


053314 


013700 


060044 




MOV 


T19PREV.R0 j 


GET PREVIOUS DATA PATTERN 


4108 


053320 


013703 


002312 




MOV 


DATA.T3 


GET CURRENT PATTERN 


4109 


053324 


012704 


000400 




MOV 


0S1.IHER.R4 


SETUP IHER EXPECTED 


4110 


053330 


04 04U 






BIC 


R4,(R1) | 


SET EXPD IHER -0 


4111 


053332 


030400 






BIT 


R4.R0 i 


PREVIOUS -1? 


4112 


05333* 


001403 






BEQ 


2/5$ , 


BR IF NO 


4113 


053336 


030403 






BIT 


R4.R3 


CURRENT -0? 


4114 


053340 


001001 






BNE 


275$ 


BR IF MO 


4115 


053342 


050411 






BIS 


R4.CR1) 


SET EXPD IHER -1 


4116 


053344 


012704 


001000 


275$} 


MOV 


♦SI. IFMK, R4 


SETUP IFMK EXPECTED 


4117 


053350 


040411 






BIC 


R4.CR1) 


SET EXPD IFMK -0 


4118 


053352 


030400 






BIT 


R4.R0 


PREVIOUS -1? 


4119 


053354 


001403 






BEQ 


280$ 


BR IF NO 


4120 


053356 


030403 






BIT 


R4.R3 


CURRENT «0? 


4121 


053360 


001001 






BNE 


280$ 


BR IF NO 


4122 


053362 


050411 






ars 


R4,($il) 


SET EXPD IFMK -1 


4123 


053364 


012/04 


002000 


280$; 


MOV 


♦SI. ICER, R4 


SETUP ICER EXPECTED 


4124 


053370 


040411 






BIC 


R4,(Ri) 


SET EXPD ICER "0 



N14 
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4125 


053372 


030400 




4126 


053374 


001403 




4107 


053376 


030403 




412^ 


053400 


001001 




412<7 


053402 


050411 




4130 


053404 


011100 




4131 








4132 


053406 


012/04 


004000 


4133 


053412 


050400 




4134 


053414 


030437 


060044 


4135 


053420 


001403 




4136 


053422 


030403 




4137 


053424 


O01401 




4138 


053426 


040400 




4139 


053430 


052700 


040000 


4140 


053434 


052700 


020000 


4141 


053440 


042700 


100000 


4142 


053444 


032^12 


100000 


4143 


053450 


001402 




4144 


053452 


052700 


100000 


4145 


053456 


010011 




4146 


053460 


016261 


000002 000002 


4147 


053466 


005000 




4148 


053470 


012701 


062402 


4149 


053474 


012 702 


060112 


4150 


053500 


012703 


000024 


4151 


053504 


004737 


011500 


4152 


053510 






4153 


053520 


103404 




4154 


053522 






4155 


053522 








053522 


104456 






053524 


001455 






053526 


061421 






053530 


013064 




4156 


053532 








053532 


104406 




4157 








4158 


053534 


004737 


062050 


4159 


053540 


012704 


062530 


4160 


053544 


010465 


000000 


4161 


053550 


00' 737 


016336 


4162 


053554 






4163 


053570 


103407 




4164 


053572 


010001 




41b5 


053574 






4166 


053574 








053574 


104455 






053576 


001456 






053600 


060330 






053602 


012046 




4167 


053604 


005237 


002222 


4168 


053610 








053610 


104406 




4169 








4170 


053612 


004737 


062030 


4171 


053616 


012704 


062530 



310$: CKLOOP 



322$ i 



330*i 

J 



Do a 


Write 


Subsystem 


Write 


M 


JSR 


PC 


T19RSF IF 






MOV 


0T19PK2.R4 






MOV 


R4 


TSDBCR5) 






JSR 


PC 


CHKTSSR 






rORCERROR 


322* 






BCS 


330$ 






MOV 


RO 


Rl 






NEXT. 


ERRNO 








ERROF 


ERRNO, T192SSR 


.PKTSSR 



Misc 



INC 
CKLOOP 



FATFLG 



SEG 0182 





SIT 




R4.R0 i 




BEQ 




285$ i 




BIT 




R4.R3 i 




BNE 




285$ , 




BIS 




R4,(R1) i 


285$: 


MOV 




(R1),R0 i 


1 


IF previous IIDENT-1 and current 




MOV 




0S1. IIDENT, R4 ; 




BIS 




R4 , RO | 




BIT 




R4.T19PREV , 




BEQ 




288$ j 




BIT 




R4.R3 j 




BEQ 




288$ j 




BIC 




R4.R0 i 


288$: 


BIS 




0S1.I2RES.R0 




BIS 




osi.iires.ro 




BIC 




OSl.PARERR.RO i 




BIT 




0S1.PARERR.CR2) ; 




BEQ 




290$ i 




BIS 




OS1.PARERR.R0 


29V?: 


MOV 




R0.CR1) j 




MOV 




2(R2),2CR1) t 




CLR 




RO ; 




MOV 




0T19BFR.R1 { 




MOV 




0T19EXP.R2 ; 




MOV 




020. ,R3 ; 




JSR 




PC.Ck.1SG2 i 




FORCERROR 302$,N0TSSR i 




BCS 




310$ t 




NEXT 


ERRNO 


302$ j 


ERRHRD 


ERRNO , T 198CMP , MSGLOOP j 



PREVIOUS -1? 

BR IF NO 

CURRENT -0? 

BR IF NO 

SET EXPO ICER -1 

GET EXPO WORD 

Is IIDENT-1 then EXPD- else 1 

IIDENT 

ASSUME EXPO-1 

PREVIOUS IIDENT- 1? 

BR IF NO 

IS CURRENT IIDENT-1? 

BR IF NO 

SET EXPD-0 

IRSSV2 EXPD ALWAYS-1 

IRESV1 EXPD ALWAYS-1 

IGNORE PARERR 

IS PARERR SET IN RECV? 

BR IF NO 

SET IN EXPD 

SETUP FINAL EXPD IN WORD 08 

SET EXPD WORD 09 - RECV (NOT TESTING) 

HIGH RECV ADDRESS FOR CKMSG2 

LOW RECV ADDRESS FOR CKHSG2 

EXPD ADDRESS 

NUMBER OF BYTFj TO COMPARE 

EXPD EQUAL RECV? 

sao 

BR IF YES 

; REPORT ERROR 

TRAP C$ERHRD 
.WORD 813 
.WORD T198CMP 
.WORD MSGLOOP 

;LOOP ON ERROR, IF FLAG SET 

TRAP CICl.Pl 

to Reset Tape Status F -FLOPS 

j SETUP PKT FOR WRITE MISC Res.it STATUS 

{GET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

j WAIT FOR SSR TO SET 

iQQOFORCE ERROR IF FORCER*! 

;BR IF CARRY SET CGOOD RETURN) 

I SAVE CONTENTS OF TSSR 

; DEVICE FATAL SSR FAILED TO SET 



SET FATAL ERROR ; 
LOOP ON ERROR. IF 



Do a Write Subsystem 
JSR PC.T19SRD 
MOV OT19PK2.R4 



READ STATUS 



TRAP 


CiERDF 


.WORD 


814 


.WORD 


T 192 SSR 


, WORD 


PKTSSR 


AG 




FLAG SET 




TRAP 


CSCLP1 



j SETUP PACKET FOR READ STATUS 

{GET WRITE SUBSYSTEM COMMAND PACKET 



B1!-j 
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SfcQ 0X85 



41 72 055*22 


010465 


oooooo 




MOV 


R4,TSDB(R5) 


<5ET THE PACKET ADDRESS TO EXECUTE 


41 7$ 055626 


004757 


016336 




JSR 


PC.CHKTSSR 


jWAIT FOR SSR TO SET 




4174 055652 








FORCERROR 3421 


iMOFORCE ERROR If FQRCER-1 


4175 055646 


105407 






BCS 


3501 


iBR IF CAPRr SET (GOOO RETURN) 


t 


4 1 76 055650 


010001 






MOV 


R0.R1 


jSAVE CONTENTS OF TSSR 




4177 055652 








NEXT.ERRNO 






4176 055652 






3421? 


ERRDF 


ERRN0,T193SSR,PKTSSR 


jDfcVICE FATAL SSR FAILED TO SET 


055052 


104455 










TRAP 


CIERDF 


055654 


001457 










.WORD 


815 


055656 


060574 










.WORD 


T193SSR 


055660 


012046 










.WORD 


PKTSSR 


4179 055662 


005257 


002222 




INC 


FATFLG 


iSET FATAL ERROR FLAG 




4150 055666 






350* j 


CKLOOP 




jLOOP ON ERROR, IF FLAG SET 




055666 


104406 










TRAP 


CICLP1 


4181 055670 


004757 


062270 




JSR 


PC.T19SETEXP 


iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


4182 055674 


012701 


060152 




MOV 


♦T19EXSTA.R1 


»GET EXPECTED READ STATUS 




4185 055700 


012702 


06242? 




MOV 


♦TX9BFSTA.R2 


iG€T RECV REAO STATUS 




4154 055704 


0U2U 






MOV 


(R2),(RX) 


iSET EXPO WORD #8 • RECV TEMP 




4185 055706 


042711 


002000 




BIC 


#S1.ICER,(R1) 


jSET EXPO ICER -0 




41ft6 055712 


0427X1 


001000 




BIC 


♦SX.IFMK,(RX) 


iSET EXPO IFf* -0 




4187 055716 


042711 


00O4O0 




BIC 


♦SI.IHER.(Rl) 


,SET EXPO IHER *0 




41M 055722 


016261 


000002 000002 


MOV 


2(R2).2CRX) 


iSET EXPO WORD *9 • RECV (NOT 


TESTING) 


4189 055750 


005000 






CLR 


RO 


iMIGM RECV AOORESS FOR CKMSG2 




4190 055752 


012701 


062402 




MOV 


♦T19BFR.R1 


lLOW RECV ADORESS FOR CKMSG2 




4191 055756 


012702 


0601X2 




MOV 


♦T19€XP,R2 


lEXPD ADORESS 




4192 055742 


012703 


000024 




MOV 


♦20. ,R3 


iNLt«ER OF BYTES TO COMPARE 




4193 055 746 


004757 


011500 




JSR 


PC.CKM5G2 


lEXPO EQUAL RECV? 




4194 055 752 








FORCERROR 362I.N0TSSR 


j9fi0 




4195 055762 


105404 






BCS 


5701 


iBN TF YES 




4196 053764 








NEXT.ERRNO 






4197 055764 






362*i 


ERRHRD 


ERRN0,U97CMP t MSGSTAT 


jREPORT ERROR 




055764 


104456 










TRAP 


CIERHRO 


055766 


00X460 










.WORD 


816 


055770 


061355 










.WORD 


T197CMP 


053772 


012550 










.WORD 


MSGSTAT 


4198 053774 






370*: 


CKLOOP 




j LOOP ON ERROR, IF FLAG SET 




053774 


104406 










TRAP 


CICl.Pl 


4199 
















4200 0537 76 


015737 


002512 060044 


MOV 


DATA.T19PREV 


I SETUP PREVIOUS DATA FOR EXPO 


CALC. 


4201 0540O4 


015705 


002316 




MOV 


TSTPTR.R3 


jRESTORE CURRENT TSTBLK POINTER 


4202 054010 


020527 


005062 




CHP 


R3.#TBLEN0 


jFNO OF TSTBLK? 




4203 054014 


105002 






BHIS 


4001 


iBR IF YES 




4204 054016 


000137 


053012 




JMP 


200* 


jDO NEXT TST81K PATTERN 




4205 054022 






4001 i 










4206 
















4207 054022 








EN0SU6 




i//////////// tNO SUBTEST ////////' 


054022 












L 10067; 




054022 


104403 










TRAP 


ClfcSUB 


4208 
















4209 054024 


005 757 


00222? 




TST 


FATFLG 


jANT FATAL ERRORS ? 




4210 054050 


001402 






BEQ 


4601 


j BRANCH IF NOT 




4211 05403? 


004737 


OT/202 




a$R 


PC.CKDRQP 


i TRY TO DROP THE. UNIT 




421^ 054036 
4215 






4(*0I I 










4214 
4? IS 
4416 
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CI 13 



SEQ 0184 



4.H7 

4.M8 

4c!H 

4iV0 

4 t Vl 

4 t \V 

4*V5 

4224 

4225 

422b 

4221 

4228 

4229 

4210 

42 51 

425? 

4255 

4254 

4255 

4? 56 

4257 

4? 56 

4259 

4240 

424 1 

4242 

424S 

4244 

424b 

424b 

424? 

424* 

4249 

4250 

42b\ 

4?V 

4255 

4254 



4255 

4256 
4257 
4256 
4259 
4260 



4261 
42b2 
4265 
42b4 
42bb 
4266 



05*056 
054056 
0*4056 

054040 
054040 
054044 
054046 
054050 
054050 
054052 
054054 
054056 

054060 
054064 
0540 70 
054074 
054110 

0541 W 



.SBTTL TEST 6i SUBTEST 2i LOOPBACK READ/WRITE SIGNALS TEST 

♦ 

TEST 8: SUBTEST 2s 

SUBTEST DESCRIPTIONi 

Thla aubteat verifiaa tha Raad/Wr ' ta data loopbacU path, 
Tha Raad/Wrlta data aignaXa ara IW<7j0> and 1W<7»0> 
raapect ively, 

TEST STEPS; 

REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGJ4 

'-Jrite to TSSR reoiatar to eoft init.' aliza th« controller 

Do WRITE CHARACTERISTICS to check for E*tendad Faaturaa Snitch 

If Exta-vdad Faaturaa Hardwara Switch Ciaar than: 

Do Write Subeyata* Write Miacal larvaoui to Set E*.t«nded Faaturaa. 
Do WRITE CHARACTERISTICS to aelact r*—r<«i unit / and aatup BUFFER 
Do a Write Subeyate* WRITE NPR to aat tape d fraction out and Loopbock 
Do a WRITE NPR to eet loopbacW and tape diraction OUT 
Do a WRITE FIFO *ith byta count aqual to 1 and Tapa diraction OUT 
Do a READ FIFO -ith tape diraction OUT to load tape out writa latch 
Do a WRITE NPR to aet loopbacW and tapa diraction IN 
Do a WJUTE FIFO with byta count actual to 1 and Tapa diraction IN 

to etrobe loopback data into FIFO. 
Do a READ FIFO with tapa diraction IN to raad data 
If Data rmfi from FIFO NOT- to Data aent Than Print Error 
Do a Writ* Subeyate* READ STATUS 
If Input Raady NOT-1 Than Print Error 

If Output Raady N0T»0 Than Print Error 
If Data In Mlae NOT-0 Than Print Error 



ENO 



104402 



0O4757 015774 

105405 

010001 

10445!) 
0O1460 
0056V 
012054 

005057 002222 
012704 062560 
004 73 7 1>1Q6&2 

10540/ 
$10001 



Ms 



BGNSUB i //////////// BEGIN SUBTEST /////■'//// 

T8.2: 

TRAP CIBSUB 

Writa to TSSR ragiatar to aoft initialixa tha co^trollar 



JSR 
BCS 

MOV 
ERRDF 



PC.SOFINIT 

101 

R0.R1 

ERRNO.SFIERR.Sr'IMSG 



10* t 



jWRITE TO TSSR TO SOFT INITIALIZE 
jBR IF SOFT INIT OKAt 
iSAVE CONTENTS 0^~ TSSR 
jDEVICE FATAL DURING INIT 

TRAP C It RDF 

.WORD 816 
.WORD SFIERR 
.WORO SFIMSG 
Do WRITE CMARACTFRISUCS tO Ch*C* for E*tanded F«»turaa Snitch 
CLR FATFLG jCLEAR FATAL ERROR FLAG 

MOV *T19PACKF T.R4 ,GET THE ADDRESS OF COMMAND PACKE \ 

JSR PC.WRTCHP jDO WRITE CHARACTERISTICS COMMANO 

fORCtRRQR l£% iMDFORCE ERROR IF FORCER*! 

BCS 151 ) BR IF CARRY SET CG000 RETURNS 

MQV RQ # R1 | SAVE CQMIENIS OF TSSR 



01b 



TSVS • HARDWARE 


TESTS 


MACRO i 


TfciiT 8; SUBTEST 2t L00PBACK RE 


4266 054U4 






4?69 054114 






054114 


104455 




054116 


001461 




054120 


060? 7 3 




05412? 


012046 




4?V0 054124 


005257 


002222 


4271 054130 






054130 


104406 




<*272 






4273 






4274 054132 


012701 


062402 


42 7S 054136 


032761 


000200 


4276 054144 


001026 




42/7 054146 


004737 


062252 


42/8 054152 


012704 


062550 


4 2 79 054156 


010465 


OOOOOO 


4260 054162 


004737 


016556 


4281 054166 






4282 054202 


105407 




4263 054204 


010001 




4284 054206 






428b 054206 






054206 


104455 




054210 


001462 




054212 


060550 




054214 


012046 




4266 054216 


005257 


002222 


428 7 054222 






054222 


1044O6 




4268 






4289 054224 


012704 


062560 


4290 054230 


004 7 37 


010662 


4291 054234 






4292 054250 


105407 




4293 054252 


010001 




4294 054254 






*295 054254 






054254 


104455 




054256 


001463 




054260 


0602 7 3 




054262 


012046 




4296 054264 


005237 


002222 


4297 0542 70 






054270 


104406 




4296 






4299 






45O0 






4501 054272 


012703 


002 752 


4302 054276 


012357 


OC2312 


4303 054302 


04275/ 


1/7400 


4304 054310 


010557 


002316 


4 505 






4306 054314 


012700 


OOO100 


4 30 7 054 320 


052 700 


OOOO40 


4 308 054 324 


004/3 7 


0620 72 


4309 054 330 


012704 


062530 
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SEQ 0185 



Nf XT.ERRNO 
121? ERRDF ERRN0.T195SR, PKTSSR 



15*i 



000012 



22$! 



30 « 

I 



421; 



50$; 



iDEVICE FATAL 



INC 
CKLOOP 



FATFLG 



SSR FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
817 
T19SSR 
PKTS5R 



iSET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



If FHt«nd#d Faatorat Hardnara Sw 
Do Writ* Subayatam Writ* Mi«ct 
MOV *T196FR $ R1 

BIT *X2,EXTF.XST2CRi) 

BNfc 50$ 

JSR PC.T19SEXT 

MOV ♦T19PK2.R4 

MOV R4,TSD6(R5) 

JSR PC.CHKT5SR 

FORCERROR 2?t 

BCS 30$ 

MOV R0.R1 

NCXT.ERRNO 
ERRDF ERRN0,T192SSR t PKT5SR 



SET 
TRAP 



CiCLPl 



E*t«ndad Feature*. 
AODRESS 

SWITCH SET? 



i tch Claar than 

llanaoua to Sat 

I MESSAGE BUFFER 

■EXTENDED FEATURES 

I BR If YES 

i SETUP PACKET FOR WITE MISC INVERT 

jGET WRITE SUBSYSTEM COMMAND PACKET 

l SET THE PACKET ADDRESS TO EXECUTE 

i WAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



lDEVlCE FATAL SSR 



INC FATFLG 

CKLOOP 

Do WRITE CHARACTERISTICS to a«l« 

MOV ♦T19P'\CKET 4 R4 

JSR PC,WRTCHR 

FORCERROR 42$ 

BCS 501 

MOV R0.R1 

NF XT ERRNO 

ERRDF ERRN0,T19SSR, PKTSSR 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR, 1*F FLAG 



FAILED TO SF.T 
TRAP 
.WORD 
,WO«D 
.WORD 



SET 
TRAP 



CIERDF 

11 'A SSR 
PKTSSR 



C$C.P1 



wt r**mrw<i *.nit 7 

iGET THE ADORESS OF COMMANO PACKET 

I DO WRITE CHARACTERISTICS C0M1AN0 

jMOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF fSSR 



j DEVICE FATAL SSR 



*\C FATFLG 

O'LOOP 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



i SET FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



SET 
TRAP 



C$ERDF 

619 

T 195SM 

PKTSSR 



CICI.P1 



RE PEA 



W ALL TEST PATTERNS IN TSTBLK TABLE 



00231; 



HL #TSTBLK,R3 

100$; MOV (R5)».DATA 

BIC f tC<377»,DATA 

MOV R^,TSTPTR 
i Oo a WRITE r#>R to a 

MOV #NP.OUT,R0 

BIS #NP.100P,R0 

JSR PC.T19SNPR 

NOV #T19PK2,R4 



iGET FIRST PATTERN ADDRESS 
tGET A TEST PATTERN 
iDATA IS BYTE 

♦SETUP CURRENT TSTBLK POINTER 
t loopback and taoa d fraction OUT 

I SET TAPE DIRECTION OUT 

iSET LOOPBACK 

iSETLP T19PK2 TOR WRITE UPR 

iGET WRITE SUBSYSTEM COMMAND PACKET 
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TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 



Lib 



SEQ 0186 



4310 


054 334 


010465 


000000 


4311 


054 340 


004737 


016336 


4312 


054 344 






4313 


054 360 


103407 




4314 


054362 


010001 




431b 


054 364 






4316 


054 364 








054364 


104455 






054366 


001464 






054370 


060441 






054372 


012046 




4317 


054 3 74 


005237 


002222 


4318 


054400 








054400 


104406 




4319 








4 320 


054402 


012700 


0OO001 


4321 


054406 


012701 


002312 


4322 


054412 


004737 


062136 


4323 


054416 


012704 


062530 


4324 


054422 


010465 


000000 


4325 


054426 


004737 


016336 


4326 


054432 






432 7 


054446 


103407 




4328 


054450 


010001 




4529 


054452 






4330 


054452 








054452 


104455 






054454 


00 14 t 5 






054456 


060504 






054460 


012046 




4351 


054462 


005237 


002222 


4332 


054466 








054466 


104406 




«V353 








4534 


0544 70 


012700 


000001 


4535 


0544 74 


004737 


062116 


4336 


054500 


012704 


062530 


4557 


054 504 


0V0465 


000000 


4538 


054510 


004737 


016336 


4339 


054514 






4340 


054530 


103407 




4341 


054532 


010001 




4342 


054554 






4343 


054534 








054554 


104455 






054556 


001466 






054540 


060550 






05454? 


012046 




4344 


054544 


00523/ 


002222 


4545 


054550 








054550 


104406 




4346 








4347 


054552 


005OO0 




4348 


054554 


052700 


000040 


4 549 


054560 


004 737 


0620/2 


4350 


054564 


012704 


062530 


4351 


054570 


010465 


000000 



102*! 



122$ 



MOV R4.TSDBCR5) 

JSR PCCHKTSSR 

FORCERROR 102$ 

BCS 105$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, U94SSR, PKTSSR 



I SET THE PACKET ADDRESS TO EXECUTE 
j WAIT FOR SSR TO SET 

i»80rORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC 


FATFLG 


105$! 


CKLOOP 


i 


Do a 


WRITE FIFO with byta co< 




MOV 


#1,R0 




MOV 


•OATA.Rl 




JSR 


PC, T19WFIF 




MOV 


♦T19PK2,R4 




MOV 


R4,TSDB(R5) 




JSR 


PCCHKTSSR 




FORCERROP 107$ 




BCS 


110$ 




MOV 


RO.Rl 




NEXT, 


ERRNO 


107$: 


ERRDF 


ERRNO, T1955SR,PKTSSR 



j SET FATAL ERROR Fi.AG 
j LOOP ON ERROR, 1<" FLAG 



CIERDF 

820 

T 194 SSR 

PKTSSP 



.RAP 



a©« di r#ct ion 



C$CLP1 
OUT 



•qua I to \ and 

»WRITE 1 BYTE 

iFIFO WRITE DATA ADDRESS 

j SETUP T19PK2 FOR WRITE FIFO 

jGET WRITE SUBSYSTEM COMMANO PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
821 

T195SSR 
PKTSSR 





INC 




FATFLG 


110$} 


CKLOOP 




J 


Do ■ 


READ FIFO with 




MOV 




tl.RO 




JSR 




PC.T19RFIF 




MOV 




•T19PK?,R* 




MOV 




R4,TSDe(R5) 




JSR 




PC.CHKTSSR 



jSET FATAL ERROR FLAG 
j LOOP ON ERROR. IF ^LAG 



SET 
TRAP 
wr J ta 



C$CLP1 
latch 



122$ 



FORCERROR 

BCS 150$ 

MOV RO.Rl 

NEXT, ERRNO 

ERRDF ERRNO, T196SSR, PKTSSR 



tnpt direction OUT to load tap* out 
iSET REAO BYTE COUNT 
I SETUP T19PK2 FOR REAO FIFO 
iGET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADORESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSfiOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



) DEVICL FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 





INC 




FATFLG 


150$: 


CKLOOP 




l 


Do a 


WRI T E NPR to « 




CLR 




RO 




BIS 




♦NP.LOOP.RO 




JSR 




PC.T19SNPR 




MOV 




♦T19PK2.R4 




MOV 




R4,TS0BCR5) 



i SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG 



SFT 
TRAP 



C$ERDF 
822 

T196SSR 
PKTSSR 



CICL.P1 



and tap* direction IN 
jCLR NP.OUT TO SET TAPE DIRECTION IN 
j SET LOOPBACK 

l SETUP T19PK2 FOR WRITE NPR 
jGET WRITE SUBSYSTEM COMMAND PACKF T 
jSET THE PACKET ADDRESS TO EXECUTE 



1-1 L) 
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TEST 8: SUBTEST 2; LOOPeACK READ/WRITE SIGNALS TEST 



SEQ 0187 



4 55? 


054574 


004737 


016336 


4353 


054600 






4354 


054614 


103407 




4355 


054616 


010001 




4356 


054620 






4357 


054620 








054620 


104455 






05462? 


001467 






054624 


060441 






054626 


012046 




4358 


054630 


00523/ 


002222 


4 359 


054634 








054634 


104406 




4 360 








4361 


054636 


012700 


0O0001 


4 36? 


054642 


012701 


002512 


4363 


054646 


0O4737 


062136 


4 364 


05465? 


012704 


062550 


4365 


054656 


010465 


OOOOOO 


4366 


05466? 


004737 


016336 


4 367 


054666 






4368 


054 702 


10340/ 




4369 


054 704 


010001 




4370 


054 706 






4 371 


054 706 








054 706 


104455 






054710 


001470 






054712 


060504 






054714 


012046 




437? 


054716 


005237 


002222 


4 373 


054 722 








054 722 


104406 




43/4 








43/5 








4376 


054 724 


012700 


OOOOOi 


4377 


054 730 


004737 


062116 


4378 


054734 


012704 


062550 


4379 


054/40 


010465 


OOOOOO 


4 580 


054 744 


004 737 


016336 


4381 


054 7 V) 






4 38? 


054/64 


103407 




4383 


054 766 


010O01 




4 364 


054 7 70 






4 585 


054/70 








054/70 


104455 






0^7 72 


001471 






054 774 


060550 






054 776 


012O46 




45*6 


055000 


00525/ 


002222 


4587 


055004 








055004 


104406 




4 588 


055006 


004 73 7 


062270 


4 389 


055012 


012701 


060152 


4 590 


055016 


012702 


062422 


4591 


055022 


015711 


00251? 


4 39? 


055026 


016261 


000002 


4393 


055034 


005000 





142*5 



170$ j 



1821: 



1901: 



000002 



JSR PC, CHKTSSJR 

FORCERROR 142$ 

BC r 150$ 

MOV RO.Ri 

NEXT.ERRNO 

ERRDF ERRN0.T194SSR, PKTSSR 



tWAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



jOEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



OERDF 
823 

T194S3R 
PKTSSR 





INC FATKLCi 


150$} 


CKLOOP 


J 


Do a WRITE FIFO with 




MOV 01, RO 




MOV O0ATA.R1 




JSR PC.T19WFIF 




MOV 0T19PK2.R4 




MOV R4,TSDB(R5) 




JSR PC.CHKTSSR 




FORCERROR 162$ 




BCS 170$ 




MOV R0.R1 




NEXT.ERRNO 



l SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG 



Tapa 



SET 
TRAP 
di ract ion 



IN 



C$CLP1 



byta count aqual to 1 and 
iWRITE 1 BYTE 
|FUO WRITE DATA ADDRESS 
jSETUP T19PK2 FOR WRITE FIFO 
,GET W^ITE SUBSYSTEM COMMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
IWAIT FOR SSR TO SET 

jfiWOFORCE ERROR IF FORCER'l 
,BR IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS Of" TSSR 



162$: ERRDF ERRNO, T1955SR.PKTSSR 



INC FATFLG 

CKLOOP 

Do • READ FIFO with tap* direct 

If Data raad from FIFO NOT- to 

MOV #1, RO 

JSR PC.T19RFIF 

MOV 0T19PK2.R4 

MOV R4,TSDB(R5) 

J5R PC.CHKTSSR 

FORCERROR 182$ 

BCS 190$ 

MOV R0.R1 

NEXT .ERRNO 

ERRDF ERRNO, T196SSR, PKTSSR 



lOEVICB FATAL SSR 



jSET FATAL EHhOR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


824 


.WORD 


T195SSR 


.WORD 


PKTSSR 



SET 

TRAP 



C5CLP1 



INC 


FATFLG 


CKLOOP 




JSR 


PC.T19SETEXP 


MOV 


0U9EXSTA.R1 


MOV 


0T196FSTA,R2 


MOV 


DATA.CR1 ) 


MOV 


2(R2),2(R1) 


CLR 


RO 



ion IN to rm»d c a 

Data aant Than Print Error 

l SET READ BYTE COUNT 

jSETLP T19PK2 FOR READ FIFO 

jGET WRITE SUBSYSTEM COMMAND PACKET 

j SET XHE PACKET ADORGSS TO EXECUTE 

tWAIT FOR SSR TO SET 

iSSDFORCt-: ERROR IF FORCER-1 

jOR IF CARRY SET (GOOO RETURN) 

j SAVE CONTENTS OF TSSR 

jDEVICE FATAL SSR FAILEU TO SET 

TRAP CIFRDF 

.WORD 825 
.WORD T196SSR 

.WORD PKTSSR 

I SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG 



iSET 
i GET 
»GET 
I SET 
I SET 
I HIGH 



SET 

TRAP C$CIP1 

WORDS 0/ EXPO-RECV (NOT TESTING) 
EXPECTED READ STATUS 
RECV READ STATUS 
EXPO WORD 08 • DATA 
EXPO WORD 09 - RECV C NO I TESTING) 



RECV ADDRESS FOR 



CKMSG2 
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TEST 8; SUBTEST Pi LOOPBACK READ/WRITE SIGNALS TEST 



G15 



SEQ 0188 



4394 


055036 


012701 


O62402 


4395 


055042 


012702 


060112 


4396 


055046 


012703 


000022 


4397 


055052 


004737 


011500 


4398 


055056 






4399 


055066 


103404 




4400 


055070 






4401 


055070 








055070 


104456 






055072 


001472 






055074 


061510 






0'_>5076 


013742 




440? 


055100 








055100 


104406 




4403 








4404 








4405 








4406 








4407 


055102 


004737 


062030 


4408 


055106 


012704 


062530 


4409 


055112 


01O465 


OOOOOO 


4410 


055116 


004737 


016336 


4411 


055122 






4412 


055136 


103407 




4413 


055140 


010OO1 




4414 


055142 






4415 


055142 








055142 


104455 






055144 


001473 






055146 


060374 






055150 


012046 




4416 


055152 


005237 


002222 


4417 


055156 








055156 


104406 




4418 


055160 


004737 


O62270 


4419 


055164 


012701 


060132 


4420 


055170 


012702 


062422 


4421 


055174 


012221 




4422 


055176 


011211 




4423 


055200 


052711 


000020 


4424 


055204 


042711 


000040 


4425 


055210 


042711 


000200 


4426 


055214 


005OOO 




4427 


055216 


012701 


062402 


4428 


055222 


01270? 


060112 


4429 


055226 


012703 


OO0O24 


4450 


055232 


004737 


O115O0 


4431 


055236 






44 32 


055246 


103404 




4433 


055250 






44 34 


055250 








055250 


104456 






055252 


001474 






055254 


061250 






055256 


012350 




4435 


055260 








055260 


104406 





202$: 



212* J 



2201: 



2321: 



2401 : 



MOV 0T196FR,R1 

MOV 0T19EXP.R2 

MOV 018., R3 

JSR PCCKMSG2 

r ORCERROR 202$,N0TSSR 

BCS 2101 

NEXT, ERRNO 

ERRHRD ERRNO , T 199CMP , MSGSUB 



I LOW RECV ADDRESS FOR CKMSG2 

lEXPD ADDRESS 

j NUMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV7 

I BOO 

I BR IF YES 



I REPORT ERROR 



21.0$: CKLOOP 



l LOOP ON ERROR, IF FLAG 



Do a Writ* Subayatam READ STATUS 
If Input Raady 
If Output Raady 
If Data In Miaa 



TRAP 
.WORD 
WORD 
.WORD 
SET 
"iRAP 



C»ERH«D 

826 

T199CMP 



C$CLP1 



NOT-1 
NOT-0 
NOT-O 
PC.T19SRD 
0T19PK2.R4 
«^4 # TSDBCR5) 
PC.CHKTSSR 

212$ 



Than 
Th«n 
Then 



Prt 

Pri 
Pri 



JSR 

MOV 

MOV 

JSK 

F ORLTRROR 

BCS 220$ 

MOV R0.R1 

NE XT ERRNO 

tRRDF ERRNO , T 193SSR , PK TSSR 



nt Error 

nt Error 

nt Error 

I SETUP PACKET FOR READ STATUS 

)GET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

IWAIT FOR SSR TO SET 

jWaDFORCE ERROR IF F0«CER*1 
jBR IF CARRY SET (GOOO RETURN) 
jSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
82 7 

T193SSR 
PKTSSR 



INC 


FATFLG 


jSET FATAL ERROR FLAG 




CKLOOP 




lLOOP ON ERROR, IF FLAG SET 








TRAP 


CICLPX 


JSR 


PC.T19SETEXP 


iSET WORDS 0-7 EXPD-RECV (NOT 


TESTING) 


MOV 


♦T19EXSTA.R1 


iGET EXPECTED READ STATUS 




MOV 


#T19BFSTA,R2 


»GET RECV READ STATUS 




MOV 


(P2)*,(R1)* 


i SET EXPO WORD #8 - RECV TEMP 




MOV 


(R2),(R1) 


iSET EXPD WORD #9 - RECV TEMP 




BIS 


♦S2.INRDY,(R1) 


iSET EXP INPUT REAOY- 1 




BIC 


*S2,0UTRDY,(R1) 


iSET EXP OUTPUT READY- 




BIC 


•S2.DIH,(R1) 


iSET EXP DATA IN MISS - 




CLR 


RO 


JHIGH RECV AOORESS FOR CKMSG2 




MOV 


♦T196FR.R1 


lLOW RECV ADDRESS FOR CKMSG2 




MOV 


*T*9EXP,R2 


lEXPD ADDRESS 




MOV 


♦20 ,R3 


I NUMBER OF BYTfS TO COMPARE 




JSR 


PC.CKMSG2 


i EXPO EiXJAL RECW 




FORCERROR 232$ .NOTSSR 


jtiSO 




BCS 


240$ 


|BR IF Yt'S 




NEXT, ERRNO 






ERRHRD 


ERRNO, U96CMP.MSGSTAT 


iREPORT ERROR 








TRAP 


CIERHRD 






.WORD 


828 






.WORD 


T 196CMP 






.WORD 


MSGSTAT 


CKLOOP 




lLOOP ON ERROR, IF FLAG SM 








TRAP 


C$CLP1 
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TEST 8: SUBTEST 2: 100PBACK READ/WRITE SIGNALS TEST 



HIS 



SEQ 0189 



4436 
4437 
4438 
4439 
4440 
4441 
444? 
4443 
4444 
4445 
4446 



444/ 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4465 
4464 
4465 
446b 
4467 
4468 
4469 
44/0 
44/1 
4472 
44 73 
4474 
44 75 
44 /6 
44 7 7 
44/8 
44 79 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
448/ 
4488 
44QS 



055262 
055272 
055276 
055302 
055304 
055310 

055310 
055310 
055310 

055312 
055316 
055320 
055324 



013/03 
020327 
103002 
000137 



104403 

005737 
001402 
004737 



002316 
003062 

054276 



255*s 



FORCEXIT 255$ 
MOV TSTPTR.R3 
CMP R3.0TBLEND 
BHIS 255$ 
JMP 100$ 



ENOSUB 



002222 
017202 



260*: 



TST 


FATFLG 


BEQ 


260$ 


JSR 


PC.CKOROP 



iSOO 

»RESTORE CURRENT TSTBLK POINTER 

lENO OF TSTBLK? 

jBR IF YES 

jDO ANOTHER TSTBLK PATTERN 



I //////////// END SUBTEST ////////// 

L10070J 

TRAP C$ESUB 

I ANY FATAL ERRORS ? 

jORANCH IF NOT 

I TRY TO DROP THE UNIT 



055324 
055324 



.SBTTL TEST 8s SUBTEST 3; LOOPBACK WRITE STROBE TEST 

TEST 6: SUBTEST 3; 

SUBTEST DESCRIPTION: 

Thia aubtaat v«rif!«» tha Writa Stroba loopback path 
can •trot* data from tha FIFO to tha Data linaa. 
Tha aignal IRESV3 drivaa IWSTR (writa atroba) to write 
data from tha FIFO to tha tapa data out latch. 

TEST STEPS? 



REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 
Writa 
Do 

If Em tan dad Faaturaa 
Do Writa Subayata* 



to TSSR ragiatar 
WRITE CHARACTERISTICS 



to aoft 
to crw 



END 



Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 

Do 
If 



ihitial'ia tha cor :rollar 

ck for Entandad Faaturaa Switch 

Hmr<j*mr* Snitch Claar than: 

Writa Miacal lanaoua to Sat Extandad Faaturaa 



WRITE CHARACTERISTICS to aalact r*9*rv<i unit 7 mnd aatup BUFFER 
a Writa Sv<bayatam WRITE NPR to aat tapa diraction out and Loopbock 
NPR to aat loopback and tapa diraction OUT 
FORMAT to 9mt IRESV3-- > IWSTR - 1 

byta count acjjal to 1 and Tapa diraction OUT 
aat IRE5V3-->IUSTR - to load writa data latch 
aat IRESV3»»>IWSTR • 1 



WRITE 
WRITE 
WRITE 
WRITE 
WRITE 



FIFO with 
FORMAT to 
FORMAT to 
NPR to aat loopback and tapa diraction IN 



WRITE 

WRITE FIFO with byta count aqual to 1 and Tapa diraction IN 
to atroba loopback data into FIFO, 
a READ FIFO with tapa diraction IN to raad 
Data road from r IFO N0T» to Data aant Than 



data 

Print 



Error 



BGNSUB 



X //'///////// 



BEGIN SUBTEST 
T8,3: 



////////// 



Ilf: 



J 
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SEQ 0190 



055324 104402 



4490 
4491 
4492 
4493 
4494 
4495 



4496 
4497 
4498 
4499 
4500 
4501 
4502 
4503 
4504 



4505 
■*S06 

450/ 
4508 
4509 
4510 
4511 
4512 
4513 
4514 
4515 
4516 
4517 
4518 
4519 
4520 



4521 
4522 

4523 
4524 
4525 
4526 
4527 
4528 
4529 
4550 



055326 
055326 
055332 
055334 
055336 
055336 
055340 
055342 
055344 

055346 
055352 
055^56 
055362 
055376 
055400 
055402 
055402 
055402 
055404 
055406 
055410 
055412 
055416 
055416 



055*?0 
055424 
055432 

055434 
055440 
055444 
055450 
055454 
0554 70 
055472 
055474 
0554 74 
055474 
0554 76 
055500 
055502 
055504 
055510 
055510 

055512 

055516 
055522 
055536 
055540 
055542 
05554? 
05554,. 



004737 
103405 
010001 

104455 
001474 
003652 
012034 

005037 
012704 
004737 

10340/ 
010001 



104455 
001475 

060273 
012046 
005237 

104406 



012701 
032761 
001026 
XM737 
U 2704 
00465 
(HM737 

103407 
010 H)l 



104*55 
001' 76 
060-30 
012t*6 
005. 37 

104406 

012704 
0047! 7 

10340 ' 
010001 



104455 



015774 



l 

5*5 



002222 
062360 
010662 



10$ i 



12% \ 



002222 



062402 

000200 000012 

062232 
062530 
OOOOOO 

016336 



15$! 

i 
J 



22$ j 



O02222 



062360 
010662 



30*} 

l 



Write to TSSR reo'ieter to soft initialize the controller 



TRAP 



C»8iiU0 



JSR PC.SOFINIT 

BCS 10* 

MOV RO.Hl 

ERRDF ERRNO, SFIERR , SFIMSG 



iWRITE TO TSSR TO SOFT INITIALIZE 
iBR ir SOFT INIT OK/\Y 
I SAVE CONTENTS OF TSJR 
j DEVICE FATAL DURING INIT 

TRAP 



Do WRITE CHARACTERISTICS 

CLR FATFLG 

MOV 0T19PACKET.R4 

JSR PCWRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV RO.Rl 

NEXT.ERRNO 

ERROF ERRN0.T19SSR, PKTSSR 



.WORD 
.WORD 
.WORD 
Swi tch 



to check for Extended Featur«e 
jCLEAR FATAL ERROR FLAG 
jGET THE ADDRESS OF COMMANO PACKET 
I DO WRITE CHARACTERISTIC'S COHMANO 

10UDFORCE ERROR IF FORCER-1 
jB« IF CARRY SET (GOOO RETURN) 
,5AVE CONTENTS Of TSSR 



CIEHDF 
828 

S. If »1R 
SFIMSG 



I DEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



,SET FATAL ERROR FLAG 
tLOOP ON ERROR, IF FLAG 



If Extended Ftaturee Hard*ar« Switch Cle 
Do Write Subeyetem Write Mi seel leneoue 



SET 
TRAP 



C$LRDF 
829 
T19SSR 
PKTSSR 



CICLP1 



HOV •T19BFP.R1 

BIT *X2.EXTF,XST2(R1) 

BNE 30$ 

JSR PC.T19SEXT 

MOV «TL9PK2,R4 

MOV R4.TS0BCR5) 

JSR PC.CHKTSSR 

FORCERROR 22$ 

BCS 30$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.U92SSR, PKTSSR 



r then: 

to Set Extended Features. 

BUFFER ADORESS 
jEXTENOED FEATURES SWITCH SET? 
tBR IF YES 

j SETUP PACKET FOR WRITE MISC INVERT 
iGET WRITE SUBSYSTEM COMMAND PACKET 
* SET THE PACKET ADDRESS TO EXECUTE 
,WAIT FOR SSR TO SET 

jSSOFORCE ERROR IF FORCER" 1 
,BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOO* 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERRO« FLAG 
i LOOP ON ERROR, IF FLAG 



42$t 



Do WRITE CHARACTERISTICS 

MOV *T19PACKET 4 R4 

JSR PC,WRTCHR 

FORCERROR 42$ 

BCS 501 

MOV R0.R1 

NEXT ERRNO 

ERRDF ERRNO, T19SSR. PKTSSR 



SET 

TRAP 



C$ERD* r 
830 

T192SSR 
PKTSSR 



CICLPX 



to «el«ct ree«rv«d unit 7 

iGET THE ADDRESS OF COMMAND PACKET 
,00 WRITE CHARACTERISTICS COMMANO 

iQeOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



FAILED TO SET 
TRAP 



C$ERDF 
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J15 



SEQ 0191 





055544 


001477 






055546 


0602 73 






055550 


012046 




4531 


055552 


OC5237 


002222 


4532 


055556 








055556 


104406 




4533 








4534 








4535 


055560 


012703 


002752 


4536 


055564 


012337 


002312 


4537 


055570 


042737 


177400 


4538 


055576 


010337 


002316 


453* 








4540 


051,602 


012700 


OOOIOO 


4541 


C55606 


052700 


000040 


454? 


055612 


0O4737 


062072 


4543 


055616 


012704 


062530 


4544 


05S622 


010465 


000000 


4545 


055626 


0O4737 


016336 


4546 


055632 






454 7 


055646 


103407 




4548 


055650 


010001 




4549 


055652 






4550 


055652 








055652 


104455 






055654 


001500 






055656 


060441 






055660 


012046 




4551 


055662 


005237 


002222 


4552 


055666 








055666 


104406 




4553 








4554 


055670 


012700 


000002 


4555 


0556 74 


0O4737 


062212 


4556 


055700 


012704 


062530 


4557 


055704 


010465 


000000 


4558 


055710 


004737 


016336 


4559 


055714 






4560 


055730 


103407 




4561 


055732 


010001 




4562 


055 734 






4563 


055734 








055 734 


104455 






055 736 


001501 






055740 


060662 






055742 


012046 




4564 


055744 


005237 


002222 


4565 


055 750 








055750 


104406 




4566 








4567 


055752 


012700 


000001 


4568 


055756 


012701 


002312 


4569 


055762 


004737 


062136 


4570 


055766 


012704 


062530 


4571 


055 7 72 


010465 


000000 


4572 


0557 76 


004737 


016336 


4573 


056002 







50$ 



INC 
CKL.OOP 



FATFLG 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 



TRAP 



831 

T19SSH 

PKTSSR 



C$CLP1 



REPEAT FOR 
MOV 



002312 



100$ 



102$ 



105$; 



112$ 



120$ 



ALL TEST PATTERNS IN TSTBLK TAQLE 
OTSTBLK.RJ 
MOV (R3)*,DATA 
BIC *tC<377>,DATA 
MOV R3,TSTPTR 
Do a WRITE NPR to «et loopbock 
MOV WP.OUT.RO 
BIS WP.LOOP.RO 
JSR PC.T19SNPR 
MOV 0T19PK2.R4 
MOV R4,TSDBCR5) 
JSR PC.CHKTSSR 



FORCERROR 102$ 

BCS 105$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T194SSR , PKTSSR 



iGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
iDATA IS BYTE 

j SETUP CURRENT TSTBLK POINTER 
and tape direction OUT 
I SET TAPE DIRECTION OUT 
i SET LOOPBACK 

j SETUP T19PK2 FOR URITE NPR 
iGET WRITE SUBSYSTEM COMMANO PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
jWATT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



INL 


FA1 


'FLG 


CKLUOP 




Do a 


WRITE 


FORMAT to net IRESV3- 


MOV 


*Wf 


M3RES,R0 


JSR 


PC, 


,T19WFMT 


MOV 


0T19PK2.R4 


MOV 


R4 ( 


,TSDBCR5) 


JSR 


PC, 


XHKTSSR 


FORCERROR 


112$ 


BCS 


120$ 


MOV 


RO, 


,R1 


NEXT 


.ERRNO 





,SET FATAL ERROR FLAG 
j LOOP ON ER90R. IF FLAG 



1 



5ET 
TRAP 



C$ERDF 
832 

T194SSR 
PKTSSR 



C$CLP1 



•>IUSTR 

iIRESV3-->IWSTR-l 

j SETUP T9PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

,WAIT FOR SSR TO SET 

jSUOFORCE ERROR IF FORCER-1 
tBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



ERRDF ERRNO, T198SSR, PKTSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 

833 

T198SSR 



I SET FATAL ERROR FLAG 
I LOOP ON EHROR, IF FLAG 



Do a WRITE FIFO with byte count 

MOV 01, RO 

MOV *0ATA,R1 

JSR PC,T19WfIF 

MOV *>T19PK2,R4 

MOV R4,TSDB(R5) 

JSR PC,CHKTSSR 



Tape 



SET 
TRAP 
di rect ion 



C$CLP1 
OUT 



FORCERROR 



132$ 



equal to 1 and 

{WRITE 1 BYTE 

jFIFO WRITE DATA ADDRESS 

jSETUP T19PK2 FOR WRITE FIFO 

iGET WRITE SUBSYSTEM COMMANO PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

iQSOFORCE ERROR IF FORCED- 1 
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K15 



SEQ 0192 



4574 


056016 


103407 




4575 


056020 


010001 




4576 


056022 






4577 


056022 








056022 


104455 






056024 


001502 






056026 


060504 






056030 


012046 




4578 


05603? 


005237 


002222 


4579 


056036 








056036 


104406 




4580 








4581 


056040 


005000 




4582 


056042 


004737 


062212 


4583 


056046 


012704 


062530 


4584 


056052 


010465 


000000 


4585 


056056 


004737 


016336 


4586 


056062 






4587 


056076 


103407 




4588 


056100 


010001 




4589 


056102 






4590 


056102 








056102 


104455 






056104 


001503 






056106 


060662 






056110 


012046 




4591 


056112 


005237 


002222 


4592 


056116 








056116 


104406 




4595 








4594 


056120 


012700 


000002 


4595 


056124 


004737 


062212 


4596 


056130 


012704 


062530 


4597 


056134 


010465 


000000 


4598 


056140 


004737 


016336 


4599 


056144 






4600 


056160 


103407 




4601 


056162 


010001 




4602 


056164 






4603 


056164 








056164 


104455 






056166 


0015O4 






056170 


060662 






056172 


012046 




4604 


056174 


005237 


002222 


4605 


056200 








056200 


104406 




4606 








4607 








4608 


056202 


005000 




4609 


056204 


052700 


000040 


4610 


056210 


004737 


062072 


4611 


056214 


012704 


062530 


4612 


056220 


010465 


000000 


4613 


056224 


004737 


01633b 


4614 


0562 50 






4615 


056244 


103407 





132$: 



172$: 



180$; 



BCS 140$ 

MOV R0,R1 

NEXT. ERRNO 

ERRDF ERRNO , T 195SSR , PKTSSR 



iBR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



, DEVICE FATAL SSR 





INC 


FATFLG 


140$: 


CKLOOP 


i 


Do a 


WRITE FORMAT to set IRE 




CLR 


RO 




JSR 


PC.T19WFMT 




MOV 


0T19PK2.R4 




MOV 


R4,TSDB(R5) 




JSR 


PC.CHKTSSR 




FORCERROR 152$ 




BCS 


160$ 




MOV 


R0.R1 




NEXT, 


, ERRNO 


152$ j 


ERRDF ERRNO, T196SSR, PKTSSR 



i SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



CIERDF 
834 

T195SSR 

PKTSSR 



C$CLP1 



->IWSTR - 
jSET IRESV3-->IWSTR-0 
l SETUP T9PK2 FOR WRITE FORMAT 
{GET WRITE SUBSYSTEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 

{DEVICE FATAL SSR FAILED TO SET 



TRAP 


C$EROF 


.WORD 


835 


.WORD 


T198SSR 


.WORD 


PKTSSR 





INC 




FATFLG 


160$: 


CKLOOP 




I 


Do a 


WRITE FORMAT to 




MOV 




♦WF.I3RES,R0 




JSR 




PC.T19WFMT 




MOV 




*T19PK2,R4 




MOV 




R4.TSDBCR5) 




JSR 




PC.CHKTSSR 



172$ 



FORCERROR 

BCS 180$ 

MOV R0.R1 

NEXT, ERRNO 

ERRDF ERRNO, T198SSR, PKTSSR 



j SET FATAL ERROR FLAG 

j LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
aet IRESV3 *>IWSTR - 1 

jIRESV3-->IWSTR-1 

j SETUP T9PK2 FOR WRITE FORMAT 

{GET WRITE SUBSYSTEM COMMAND PACKET 

tSET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

{OQOFORCE ERROR IF FORCER-1 
»BR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 
,WORO 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



SET 
TRAP 



CIERDF 
836 

T198SSR 
PKTSSR 



ClO.Pl 



Do a WRITE NPR to aat loopbock 

CLR RO 

BIS *NP. LOOP, RO 

JSR PC.T195NPR 

MOV GT19PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 182$ 

BCS 190$ 



and tapa direction IN 
{CLR NP.OUT TO SET TAPE DIRECTION IN 
{SET LOOPBACK 

{SETUP T19PK2 FOR WRITE NPR 
{GET WRITE SU6SY5TEM COMMAND PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
{WAIT FOR SSR TO SET 

{UfiOFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOD RETURN) 
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L15 



SEQ 0193 



4616 056246 


010001 






MOV 


R0,R1 




{SAVE CONTENTS OF TSSR 




4617 056250 








NEXT.ERRNO 








4618 056250 






182$: 


ERRDF 


ERRN0.T194SSR, 


.PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




056250 


104455 












TRAP 


CtERDF 


056252 


001505 












.WORD 


837 


056254 


060441 












.WORD 


T194SSR 


056256 


012046 












.WORD 


PKTSSR 


4619 056260 


005237 


002222 




INC 


FATFLG 




j SET FATAL ERROR FLAG 




4620 056264 






190$: 


CKLOOP 






lLOOP ON ERROR, IF FLAG SET 




056264 


104406 












TRAP 


C$CLP1 


4621 






1 


Do a WRITE FIFO with byte count 


ecial to 1 and Tape direction IN 


4622 056266 


012700 


000001 




MOV 


01. RO 




l . "TE 1 BYTE 




4623 056272 


012701 


002312 




MOV 


00ATA.R1 




:Fx WRITE DATA ADDRESS 




4624 056276 


004737 


062136 




JSR 


PC,T19WFIF 




jSETUP T19PK2 FOR WRITE FIFO 




4625 056302 


012704 


062530 




MOV 


♦T19PK2.R4 




jGET WRITE SUBSYSTEM COMMAND PACKET 


4626 056306 


010465 


000000 




MOV 


R4.TSDBCR5) 




j SET THE PACKET ADDRESS TO EXECUTE 


4627 056312 


004737 


016336 




JSR 


PC.CHKTSSR 




jWAIT FOR SSR TO SET 




4628 056316 








FORCERROR 202* 




iOflOFORCE ERROR IF FORCER-1 


4629 056332 


103407 






BCS 


2101 




iBR IF CARRY SET (COOO RETURN) 




4630 056334 


010OO1 






MOV 


RO.Rl 




j SAVE CONTENTS OF TSSR 




4631 056336 








NEXT.ERRNO 








4632 056336 






202$: 


ERRDF 


ERRN0,T195SSR 


.PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




056336 


104455 












TRAP 


CIERDF 


056340 


001506 












.WORD 


838 


056342 


060504 












.WORD 


T195SSR 


056344 


012046 












.WORD 


PKTSSR 


4633 056346 


005237 


002222 




INC 


FATFLG 




,SET FATAL ERROR FLAG 




4634 056352 






210*: 


CKLOOP 






tLOOP ON ERROR, IF FLAG SET 




056352 


104406 












TRAP 


CiCLPl 


4635 






} 


Do a READ FIFO with tape direct 


ion IN to rm*4 data 




4636 056354 


012700 


000001 




MOV 


♦ 1. RO 




iSET READ BYTE COUNT 




4637 056360 


004737 


062116 




JSR 


PC.T19RFIF 




iSETUP T19PK2 FOR READ FIFO 




4638 056364 


012704 


062530 




MOV 


0T19PK2.R4 




jGET WRITE SUBSYSTEM COMMANO PACKET 


4639 056370 


010465 


000000 




MOV 


R4,TSDB(R5) 




j SET THE PACKET ADDRESS TO EXECUTE 


4640 056374 


004737 


016336 




JSR 


PC.CHKTSSR 




jWAIT FOR SSR TO SET 




4641 056400 








FORCERROR 2221 




iSSOFORCE ERROR IF FORCER-1 


4642 056414 


1034C7 






BCS 


2301 




iBR IF CARRY SET (GOOO RETURN) 




4643 056416 


OlOOOl 






MOV 


R0.R1 




j SAVE CONTENTS OF TSSR 




4644 056420 








NEXT.ERRNO 








4645 056420 






222*: 


ERRDF 


ERRN0.T196SSR 


, PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




056420 


104455 












TRAP 


CIERDF 


056422 


001507 












.WORD 


839 


056424 


060550 












.WORD 


T196SSR 


056426 


012046 












.WORD 


PKTSSR 


4646 056430 


005237 


002222 




INC 


FATFLG 




jSET FATAL ERROR FLAG 




4647 056434 






230$: 


CKLOOP 






jLOOP ON ERROR, IF FLAG SET 




056434 


104406 












TRAP 


CICI.P1 


4648 






1 


If Oata 


read from r'IFO NOT- to 


Da*" a eent Then Print Error 




4649 056436 


004737 


062270 




JSR 


PC.U9SETEXP 




iSET WORDS 0-7 EXPD-RECV (NOT TESTING) 


4650 056442 


012701 


060132 




MOV 


0T19EXSTA.R1 




jGET EXPECTED READ STATUS 




4651 056446 


012702 


062422 




MOV 


0T19BFSTA.R2 




jGET RECV READ STATUS 




4652 056452 


013711 


002312 




MOV 


DATA.(Rl) 




j SET EXPO WORD 0Q • DATA 




4653 056456 


016261 


000002 000002 


MOV 


2(R2),2lRl) 




iSFT EXPO WORD 09 - RECV (NOT T! 


ESTING) 


4654 056464 


005000 






CLR 


RO 




iHIGH RECV ADDRESS FOR CKMSG2 




4655 056466 


012701 


062402 




MOV 


0T19BFR.R1 




lLOW RECV ADDRESS FOR CKMSG2 




4656 0564 72 


012702 


060112 




MOV 


0U9EXP.R2 




,EXPD ADDRESS 




4657 056476 


012703 


000022 




MOV 


018, ,R3 




1 NUMBER OF BYTES TO COMPARE 





TSV5 - HARDWARE TESTS MACRO M1200 20 -MAR -64 08:26 PAGE 28-53 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 



M15 



SEQ 0194 



46 r >8 
4659 
4660 
4661 
4662 



4663 

4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 



4674 
4675 
4676 
4677 
4678 
4679 
4680 
4681 
468? 
4683 
4684 
4685 
4686 
4687 
4688 
4689 
4690 
4691 
1692 
4693 
4694 
4695 
4696 
4697 
4698 
4699 
4/00 
4/01 
4 70c- 
4?0J 
4/04 
4/05 
4/06 
4707 



056502 
056506 
056516 
056520 
056520 
056520 
056522 
056524 
056526 
056530 
056530 



056532 
056542 
056546 
056552 
056554 
056560 

056560 
056560 
056560 

056562 
056566 
056570 
056574 



004737 011500 
103404 



104456 
001510 
061573 
013742 



242$ j 



JSR PC.CKMSG2 

FORCERROR 242$,N0TSSR 

BCS 250* 

NEXT.ERRNO 

ERRHRD ERRNO , T 19WSTR , MSUSUB 



104406 



013703 002316 

020327 00^062 
103002 

000137 055564 



250$} CKLOOP 



255$: 



FORCEXIT 255$ 
MOV TSTPTR.R3 
CMP R3.0TBLEND 
BHIS 255$ 
JMP 100$ 



ENDSUB 



lEXPD EQUAL RECV? 






iSSO 






}BR IF YES 






iREPORT ERROR 








TRAP 


CIERHRD 




.WORD 


840 




.WORD 


T19WSTR 




.WORD 


MSGSUB 


j LOOP ON ERROR, IF FLAG 


SET 






TRAP 


C*CLP1 


isao 






jRESTORE CURRENT TSTBLK 


POINTER 




jENO OF TSTBLK? 






■ BR IF YES 






iDO ANOTMER TSTBLK PATTERN 





104403 

00573 7 
001402 
004737 



002222 
017202 



260$; 



T5T 


FATFLG 


BEQ 


260$ 


JSR 


PC.LKDROP 



t//////////// END SUBTEST ////////// 

1.10071: 

TRAP C$ESUB 

{ ANY FATAL ERRORS ? 

i BRANCH IF NOT 

{TRY TO DROP THE UNIT 



.SBTTL TEST 6: SUBTEST 4 LOOPBACK READ STROBE TEST 



♦ ♦ 



TEST 8; SUBTEST 4: 

SUBTEST DESCRIPTION: 

This subtest verifies the Read strobe loopback 
can strobe the data from the Data lines to the 
The signal IRESV4 drives TRSTR 
from th* data lines to 

TEST STEPS: 



path 
FIFO. 
(read strobe) to write 
the FIFO. 



REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

:o soft initialize the controller 

to checU for Extended Features Switch 
Extended Features Hardware Switch Clear then: 



Write to TSSR register t< 
Do WRITE CHARACTERISTICS 



If 
I 
Do 
Do 
Do 
Do 
Do 
Do 
Do 
Do 



Do Write Subsystem Write Miscellaneous to 
WRITE CHARACTERISTICS to select reserved 



Set Extended Features, 
unit 7 and setup BUFFER 



a Write Subsystem WRITE NPR to set tape direction out and LoopbacU 

a WRITE NPR to set toopbacU and tape direction OUT 

a WRITE FORMAT to set IRESV4- • > IRSTR - 1 

a WRITE FIFO with byte count equal to 1 and Tope direction OUT 

a READ FIFO with tape d'rection OUT to load tape out write latch 

a WRITE NPR to set loopback and taps direction IN 

a WRITE FORMAT to set IRESV4 *•> IRSTR • to write loop data to FIFO 



N15 



TSV5 - HARDWARE TESTS MACRO M1200 20-MAR-84 08:26 PAGE 28-54 
TEST 6; SUBTEST 4 LOOPBACK READ STROBE TEST 



SEQ 0195 



4/06 








4/09 








4 710 








4711 








4 71? 








4?13 








4714 


056574 
056574 








056574 


104402 




4715 








4 716 


056576 






4717 


056576 


004 737 


015774 


4716 


056602 


103405 




4719 


056604 


010001 




4720 


056606 








056606 


104455 






056610 


001510 






056612 


003652 






056614 


012034 




4721 








4 722 


056616 


005037 


00222? 


4/23 


056622 


012704 


062*60 


4724 


056626 


004737 


010662 


4725 


056632 






4726 


056646 


103407 




4727 


056650 


010001 




4/28 


056652 






4729 


056652 








056652 


104455 






056654 


001511 






056656 


0602 7 3 






056660 


012046 




4 730 


056662 


005237 


002222 


4731 


056666 








056666 


104406 




4732 








4733 








4734 


056670 


012701 


062402 


4 735 


056674 


032761 


000200 000012 


4736 


056702 


001026 




4737 


056704 


0047*7 


062232 


4738 


056710 


012704 


J62530 


4739 


056714 


010465 


000000 


4740 


056720 


004737 


016336 


4741 


056724 






4742 


056740 


103407 




4/43 


056742 


010001 




4744 


056744 






4745 


056/44 








056744 


104455 






056746 


001512 






056750 


060330 






056752 


012046 




4716 


056754 


005237 


002222 


4 747 


056760 








056760 


104406 





J - - 



END 



Do a WRITE FORMAT to set IRESV4-- 'IRSTR - 1 

(to strobe loopback dots into FIFO, ) 
Do o READ FI c O h i th tap* direction IN to read data 
If Data read From FIFO NOT- to Data sent Then Print Error 



10$: 



12$: 



15$; 



22$: 



4 748 



30 

5 



5: 



BGNSUB 



J 


Write ' 


Co TbbH register to s< 


5$: 








JSR 


PC.SOFINIT 




BCS 


10$ 




MOV 


R0.R1 




ERRDF 


ERRNO,Sr"lERR,SFIMSG 



I ////// '///// BEGIN SUBTEST ////////// 

T8,4: 

TRAP C$BSU8 



j WRITE TO TSSR TO SOFT INITIALIZE 
I BR IF SOFT INIT OKAY 
5 SAVE CONTENTS OF TSSR 
{DEVICE FATAL DURING INIT 

TRAP 



Do WRITE CHARACTERISTICS to check for Extended Features 



.WORD 
.WORD 
.WORD 

Switch 



CIERDF 
840 
SFIERR 
SFIMSG 



CLR FATFLG 

MOV 0T19PACKET R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T19SSR.PKTSSR 



j CLEAR FATAL ERROR FL^G 

I GET T HE ADDRESS OF COMMANO PACKET 

jDO WRITE CHARACTERISTICS COMMAND 

jSSOFORCE ERROR IF FORCER-1 
jBH IE CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 

CKLOOP 



FATFLG 



iSET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



C$ERDF 
841 

T19SSR 
PKTSSR 



If Extended Feature? Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extenoed Features. 



C$CLP1 



MOV *T19BFR,R1 

BIT 0X2. EXTF,XST2(R1) 

8NE 30$ 

JSR PC.T19SEXT 

MOV 0U9PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 22$ 

BCS 30$ 

MOV R0,R1 

NEXT.ERRNO 

ERRDF ERRNO, T192S5R, PKTSSR 



: MESSAGE BUFFER ADDRESS 

j EXTENOED FEATURES SWITCH SET? 

{ BR IF YES 

{SETUP PACKET FOR WRITE MISC INVERT 

{GET WRITE SUBSYSTEM COMMAND PACKET 

i SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

tSSOFORCE ERROR IF FCRCER-1 
j BR IF CARRY SET (GOOD RETURN) 
{SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TkAP 



INC 
CKLOOP 



FATFLG 



5 SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF FLAG 



Do WRITE CHARACTERISTICS to select reserved unit 7 



.WORD 
.WORO 
.WORD 

SET 
TRAP 



C$FRDF 

842 
T192SSR 

PKTSSR 



C5CLP1 



B'1.6 



TSV5 - ,'ARDWARF TESTS MACRO M1200 .'0 MAR-B4 08i26 PAGE 28-55 
TEST 8; SUBTEST 4 LOOPBACK RfAD STROBE TEST 



SEQ 0196 



4 749 
4 750 
4751 
4 752 
4 755 
4 754 
4 755 



4756 

4757 

4 758 
4759 
4 760 
4761 
4 762 
4 763 
4 764 
4 765 
4 7ft6 
4767 
47t>8 
4 769 
4 7 70 
4771 
4 7 72 
4773 
4 7 74 
4775 



4776 
4777 

4778 
4 7 79 
4780 
4781 
4 782 
4783 
4784 
4 785 
4786 
4787 
4 788 



4 789 



056 762 
056766 
056772 
057006 
057010 
057012 
057012 
057012 
057014 
057016 
057020 
05 7022 
05 7026 
057026 



057030 
057034 
057040 
057046 

057052 
057056 
057062 
057066 
057072 
057076 
057102 
057116 
057120 
057122 
057122 
057122 
057124 
057126 
057130 
057132 
057136 
057136 

057140 
057144 
057150 
057154 
057160 
057164 
057200 
057202 
057204 
057204 
057204 
057206 
057210 
057212 
057214 
05 7220 
057220 



012704 
004737 

103407 
010001 



104455 
001513 
0602 73 
012046 
005237 

104406 



012703 
012337 
042737 
010337 

012700 
052700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001514 
060441 
012046 
005237 

104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001515 
060662 
012046 
005237 

104406 



062360 
010662 



42$} 



MOV ♦T19PACKET.R4 

JSR kC.WRTCHR 

FORCERROR 421 

BCS 50$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO, T19SSR, PKTSSR 



j GET THE ADDRESS Of COMMAND PACKET 
iDO WPITE CHARACTERISTICS COMMANO 

jMOFORCE ERROR IF" FORCER -1 
iBR IF CARRY SET CGOOO RETURN) 
l SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 



QQclZtt 



002 752 
002312 
177400 
002316 

000100 
000040 
062072 
062530 
000000 
016336 



50t j 



002312 



INC 


FATFLG 


X CKLOOP 


REPEAT FOf 


1 ALL TEST PATTERNS IN TST 


MOV 


♦TSTBLK.R3 


if] MOV 


(R3)».0ATA 


BIC 


♦*C<377>,DATA 


MOV 


R3.TSTPTR 


Do • 


WHITE NP« to ««t loopbacU 


MOV 


♦NP.OUT.RO 


BIS 


♦fP.LOOP.RO 


JSR 


PC.T19SNPR 


MOV 


♦ T19PK2.R4 


MOV 


R4,TSD6(R5) 


JSR 


PC, CHKTSSR 


FORCERROR 102$ 


BCS 


105$ 


MOV 


R0,R1 


NEXT, 


ERRNO 



lS£T FATAL ERROR FLAG 
j LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



C$ERDF 
843 

T19SSR 
PKTSSR 



C$CLP1 



ILK TABLE 

iGET FIRST PATTERN ADDRESS 

iGET A TE5T PATTERN 

,DATA IS BYTE 

i SETUP CURRENT TSTBLK POINTER 
•no* topo d i roc t • on OUT 

iSET TAPE OIRtCTION OUT 

»SET LOOPBACK 

i SETUP T10PK2 F0« WRITE UP* 

iGET WR1T£ SUBSYSTEM COMMANO PACKET 

l SET THE PACKET AOORESS TO EXECUTE 

I WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER- 1 

i BR IF CARRY SET (GOOD RETURN) 

I SAVE CONTENTS OF TSSR 



102$ 



ERRDF ERRNC.U94SSR, PKTSSR 



iDEVICE FATAL SSR 



002222 



000001 
062212 
062530 
000000 
016336 



105$s 



INC 


FATFLG 




CKLOOP 




Do • 


WRITE FORMAT to ««t 


IRESV4- 


MOV 


#WF. I4RES.R0 




JSR 


PC.T19WFMT 




MOV 


*T19PK?,R4 




MOV 


R4,TSD6(R5) 




JSR 


PC, CHKTSSR 




FORCERROR 112$ 




BCS 


120$ 




MOV 


R0.R1 




NEXT 


.ERRNO 





,SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



->IRSTR - 1 

|IRESV4-->IRSTR-1 

I SETUP T9PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMANO PACKET 

i SET THE PACKET ADDRESS TO EXECUTE 

I WAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER- 1 
jBR IF CARRY SET ( GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



C$ERDF 
844 

T194SSR 
PKTSSR 



C$CLP1 



112$ j ERRDF ERRNO, T1985SR, PKTSSR iDEVICE FATAL SSR 



002222 



120*1 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



1 SET FATAL ERROR FLAG 
lLQQP QH fcRRQR* IF FLAG 



SET 
TRAP 



C$EROF 
845 

T198SSR 
PKTSSR 



cjclp; 



TSV5 - HARDWARE TE'JIS MACRO M1200 20 MAR -84 08i26 PAGE 28-56 
TEST 0, SUBTEST 4 LOOPBACK READ STROBE TEST 



C16 



SEQ 0197 



4791 
47V 
4793 
4794 
4 795 
4796 
4 797 
4 798 
4 799 
4800 
4801 
4802 



4803 
4804 

4805 
4806 
4807 
4808 
4809 
4810 
4811 
4812 
4813 
4814 
4815 



4816 
4817 

4918 
4819 
4820 
4821 
4822 
4823 
4824 
4825 
4826 
4827 
4828 
4829 



4830 

4851 



057222 
057226 
057232 
057236 
057242 
057246 
057252 
057266 
057270 
057272 
057272 
057272 
057274 
057276 
057300 
057302 
057306 
057306 

057310 
057314 
057320 
057324 
057330 
057334 
057350 
057352 
057354 
05 7 354 
057354 
057356 
057360 
057362 
057364 
057370 
057370 

057372 
057374 
05 7400 
057404 
05 7410 
057414 
05 7420 
057434 
05 74 36 
057440 
057440 
05 7440 
057442 
05 7444 
057446 
057450 
05 7454 
057454 



012700 
012701 
004737 
012704 
010465 
004737 

103*107 
010001 



104455 
001516 
060504 
012046 
005237 

104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001517 
0605S0 
012046 
005237 

104406 

005000 
052 700 
004737 
012704 
010465 
0O4737 

103407 
010001 



104455 
001520 
060441 
012046 
00523 7 

104406 



OOOOOl 
002312 
062156 
062530 
OOOOOO 
016336 



002222 



OOOOOl 
062 J 16 
062530 
OOOOOO 

016336 



00^222 



000040 
062072 
062530 
OOOOOO 
016336 



QQZZZZ 



l 



1321: 



182*5 



190ft 
1 



Do a WRITE FIFO with byt* count 

MOV «1, RO 

MOV *0ATA,R1 

JSR PC.U9WFIF 

MOV «T19PK2,R4 

MOV R4.T5DBCR5) 

JSR PC.CHKTSSR 

FORCERROR 132$ 

BCS 140$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 195SSR , PKTSSR 



•dual to 1 and Tap* direction OUT 

»WRITE 1 BYTE 

jFIFO WRITE DATA ADDRESS 

iSETUP T19PK2 FOR WRITE FIFO 

iGET WRITE SUBSYSTEM COMMAND PACKET 

»SET THE PACKET ADORESS TO EXECUTE 

iWAIT FOR SSR TO SET 

jSSDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
I SAVE CONTENTS OF TSSR 



lOEVICE FATAL SSR 





INC 


FATFLG 


1401; 


CKLOOP 




I 


Do a READ FIFO with tap* dir< 




MOV 


• l.RO 




JSR 


PC.T19RFIF 




MOV 


• U9PK2.R4 




MOV 


R4,TSD6(R5) 




JSR 


PC.CHKTSSR 




FORCERROR 152$ 




BCS 


160$ 




MOV 


R0.R1 




NEXT.ERRNO 


152$: 


ERRDF 


ERRNO .T196SSR, PKTSSR 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
846 

T195SSR 
PKTSSR 



SET 

TRAP 
wr I t« 



C$CLP1 
latch 



ion OUT to load tap« out 
I SET READ BYTE COUNT 
I SETUP T19PK2 FOR READ FIFO 
»GET WRITE SUBSYSTEM COMMAND PACKET 
»SET THE PACKET ADf *ESS TO EXECUTE 
i WAIT FOR SSR TO St ( 

iMOfORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR 





INC 




FATFLG 


160$ i 


CKLOOP 




1 


Do a 


WRITE NPR to a#t loopback 




CLR 




RO 




BIS 




♦NT. 1. OOP, RO 




JSR 




PC.T19SNPR 




MOV 




*>T19P«2.R4 




MOV 




R4,TSOB(R5) 




JSR 




PC.CHKTSSR 



j SET FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



and tap* direction IN 
j CLR NP.OUT TO SET TAPE 
j SET LOOPBACK 
jSEYUP T19PK2 FOR WRITE 



SET 

TRAP 



C$ERDF 
847 

T196SSR 
PKTSSR 



C$CLP1 



DIRECTION IN 



NPR 
COMMAND PACKET 
TO EXECUTE 



FORCERROR 182$ 
BCS 190$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRNO , T 194 SSR . PK T SSR 



iGET WRITE SUBSYSTEM 
I SET THE PACKET ADORESS 
iWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
j BR IF CARRY SET CGOOO RETURN) 
jSAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



lOEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL ERROR FLAG 
l LOOP ON ERROR t IF FLAG 



Do * WRITE FORMAT to »*t IRESV4»»*IRSTR » 



SET 
TRAP 



C$ERDF 
848 

T194SSR 
PKTSSR 



C*CLP1 



TSV5 ♦ HARDWARE IfcSTS MACRO M1200 ^0 MAR M 08{26 PAGE 28-57 
TfcST 8: SUBTEST 4 LUOPBACK READ STROBE TEST 



01 b 



SEQ 0198 



4833 057456 


005000 






CLR RO 


jSET lRESV4-->IRSTR-0 




4834 057460 


0O4737 


062212 




JSR PC.T19WFMT 


, SETUP T9PK2 FOR WRITE FORMAT 




4835 057464 


012704 


062530 




MOV *T19PK2,R4 


jGET WRITE SUBSYSTEM COMMANO PACKET 


4836 057470 


010465 


000000 




MC R4.TSDBCR5) 


jSET THE PACKET ADDRESS TO EXECUTE 


4837 057474 


0O4737 


016336 




JSR PC.CHKTSSR 


jWAIT FOR SSR TO SET 




4838 057500 








FORCERROR 202$ 


lOSOFORCE ERROR IF FORCER-1 


4839 057514 


103407 






BCS 210$ 


»BR IF CARRY SET (GOOO RETURN) 




4840 057516 


010001 






MOV R0,R1 


(SAVE CONTENTS OF TSSR 




4841 057520 








NEXT.ERRNO 






4842 057520 






202$; 


ERRDr ERRN0.T198SSR, PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




057520 


104455 








TRAP 


C$ERDF 


05752? 


001521 








.WORD 


849 


05 7524 


060662 








.WORD 


T198SSR 


057526 


012046 








.WORD 


PKTSSR 


484 3 057530 


005237 


002222 




INC FATFLG 


jSET FATAL ERROR FLAG 




4844 057534 






210$: 


CKLOOP 


lLOOP ON ERROR, IF FLAG SET 




057534 


104406 








TRAP 


C$CLP1 


4845 






J 


Do a WRITE FORMAT to ««t IRESV4 


-->IRSTR • 1 




4846 057536 


012700 


000001 




MOV ♦W.I4RES.R0 


>IRESV4-->IRSTR-1 




4847 057542 


0O4737 


062212 




JSR PC.T19WTMT 


j SETUP T9PK2 FOR WRITE FORMAT 




4848 057546 


012704 


062530 




MOV #U9PK2,R4 


jGET WRITE SUBSYSTEM COMMANO PACKET 


4849 05755? 


010465 


000000 




MOV R4,T5D6(R5) 


I SET THE. PACKET ADDRESS TO EXECUTE 


4850 057556 


0O4737 


016336 




JSR PC.CHKTSSR 


jWAIT FOR SSR TO SET 




4851 057562 








FORCERROR 222$ 


iSfiOFORCE ERROR IF FORCER-1 


485? 057576 


103407 






3CS 230$ 


iBR IF CARRY SET (GOOO RETURN) 




4853 057600 


010001 






MOV R0.R1 


iSAVE CONTENTS OF TSSR 




4854 057602 








NEXT.ERRNO 






4855 05 7602 






222$ j 


ERRDF ERRNO , T 198SSR , PKTSSR 


, DEVICE FATAL SSR FAILED TO SET 




05 7602 


104455 








TRAP 


C$ERDF 


057604 


0O1522 








.WORD 


850 


057606 


060662 








.WORD 


T198SSR 


057610 


012046 








.WORD 


PKTSSR 


4856 057612 


005237 


002222 




INC FATFLG 


t SET FATAL ERROR FLAG 




4857 057616 






230$: 


CKLOOP 


lLOOP ON ERROR, IF FLAG SET 




057616 


104406 








TRAP 


C$CLP1 


4858 






j 


Do a READ FIFO with tapa direct 


ion IN to raad dt 




4859 05 7620 


01270O 


000001 




MOV (ll.RO 


jSET READ BYTE C *1T 




4860 05 7624 


0O4737 


062116 




JSR PC.T19RFIF 


j SETUP T19PK2 FOR READ FIFO 




4861 057630 


012704 


062530 




MOV #T19PK2.R4 


iGET WRITE SUBSYSTEM COMMAND PACKET 


4862 05 7634 


010465 


000000 




MOV R4.TSDBCR5) 


j SET THE PACKET ADDRESS TO EXECUTE 


486 5 05 7640 


0O4737 


016336 




JSR PC, CMKTSSR 


iWAIT FOR SSR TO SET 




4864 057644 








FORCERROR 282$ 


iBSOFORCE ERROR IF FORCER-1 


4865 057660 


103407 






BCS 290$ 


j BR IF CARRY SET CGOOO RETURN) 




4866 057662 


010001 






MOV R0,RI 


jSAVE CONTENTS OF TSSR 




4567 057664 








NEXT.ERRNO 






4868 057664 






282$: 


ERRDF ERRNO , T 196SSR , PKTSSR 


jDEVICE FATAL SSR FAILED TO SET 




057664 


1 34455 








TRAP 


C$ERDF 


05 7666 


001525 








.WORD 


851 


057670 


060550 








.WORD 


T196SSR 


05 76 72 


012046 








.WORD 


PKTSSR 


4869 057671 


005237 


002222 




INC FATFLG 


jSET FATAL ERROR FLAG 




48f0 057700 






290$: 


CKLOOP 


lLOOP ON ERROR, IF FLAG SET 




05 7 700 


104406 








TRAP 


CtCLPl 


4871 






i 


If Data rm*d from FIFO NOT- to 


Data aent Than Print Error 




48 ?2 05? 702 


0O4737 


0622 70 




JSR PC.T19SETEXP 


iSET WORDS 0-7 EXPD-RECV (NOT TESTING) 


4873 1,5 ,f 06 


012701 


060152 




MOV $U9EXSTA,R1 


iGET EXPECTEP READ STATUS 




4 8/4 05/712 


012702 


062422 




MOV 0U9BFSTA.R2 


jGET RECV READ STATUS 
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K16 



4675 


057716 


013711 


002312 


48/6 


057722 


016261 


000002 000002 


4877 


057730 


005000 




4878 


057732 


012701 


062402 


48/9 


05 7 736 


012702 


060112 


4880 


057742 


012703 


000022 


4881 


057746 


0O4737 


011500 


4882 


057752 






4883 


057762 


103404 




4884 


057 764 






4885 


057 764 








057764 


104456 






057 766 


001524 






057770 


061700 






05/772 


013742 




4886 


057/74 








057774 


104406 




4887 








4888 








4869 


057776 






4890 


060006 


013703 


002316 


4891 


060012 


020327 


003062 


4892 


060016 


103002 




4893 


060020 


000137 


057034 


4694 


060024 






4895 








4896 


060024 
060024 








060024 


104403 




489/ 








4898 


060026 


005737 


00222? 


4899 


060032 


001402 




4900 


060054 


004 737 


017202 


4901 


060040 






4902 








4903 


060040 








06OO40 


104432 






060042 


002602 




4904 








4905 








4906 








4907 








4908 








4909 








4910 


060044 


000000 




4911 








491^ 








4913 








4914 








4915 








4916 








4917 








4918 








4919 


060046 






4920 


060046 


00000 i 




4921 


060050 


OCKXXV 




4922 


060052 


OO00Q4 





MOV 


DATA, CRD 




MOV 


2(R2),2CR1) 




CLR 


RO 




MOV 


0T196FR,Rl 




MOV 


0T19EXP.R2 




MOV 


♦18. ,R3 




J5R 


PC,rKMSG2 




FORCERROR 302$ 


.NOTSSR 



302$: 



BCS 3101 

NEXT.ERRNP 

ERRHRO ER^N0,T19RSTR,MSGSUB 



310$ j CKLOOP 



355$s 



FORCEXIT 355$ 
MOV T5TPTR.R3 
CMP R5,*TBLEND 
BHIS 355$ 
JMP 100$ 



ENOSUB 



360$: 



TST 


FATFLG 


BEQ 


360$ 


JSR 


PC.CKDROP 



EXIT 



TST 



jLOCAl STORAGE FOR THIS TEST 



T19PREV: 



.WORD 



SEQ 0199 



»SET EXPO WORD 08 - DATA 

I SET EXPO WORD 09 - RECV (NOT TESTING) 

I HIGH RECV ADDRESS FOR CKMSG2 

j LOW RECV ADDRESS FOR CKMSG2 

lEXPD ADDRESS 

» NUMBER OF BYTES TO COMPARE 

» EXPO EQUAL RECV? 

iSSO 

,BR IF YES 

iREPORT ERROR 



TRAP 


C$ERHRD 


.WORD 


852 


.WORD 


T19RSTR 


.WORD 


MSGSUB 


j LOOP ON ERROR, IF Fl AG SET 




TRAP 


C$CLP1 


,030 




iRESTORE CIWRENT TSTBLK P0IN1ER 




jENO OF TSTBLK? 




iBR IF YES 




j DO ANOTHER TSTBLK PATTERN 





l//////////// END SUBTEST ////////// 

L10072? 

TRAP C$ESUB 

,ANY FATAL ERRORS ? 

j BRANCH IF NOT 

j TRY TO DROP THE UNIT 



\// //////// EXIT TEST ////////// 

TRAP CtEXIT 

.WORD L10066-, 



iDRXVE SIGNAL 1-0 TRANSITION FLAG 



j LOOPBACK DRIVE SIGNAL TABLE 

, THIS TABLE IS USED BY U9CNVI TO SETlV 

j A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 



i WRITE CONTROL SIGNALS ARE OF FORM WC.XXX 
i WRITE FORMAT SIGNALS ARE OF FORM WF.XXXX 



T19BFCTL: 



WC . inn 

WC.I^EN 

WC.IRWU 



jWRITE CONTROL 
iIGO-->IFPT 
,IFEN-->IKBY 
jIRWU-->IRWD 



DRIVE SIGNALS 
DATA<0> 
DATA<1^ 
DATA<2> 
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F16 



SEQ 0200 



4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
A937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
494 7 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
495/ 
495^ 
4959 
4960 
4961 
4962 
4963 
4964 
4965 
4966 
4967 
4968 
4969 
4970 
4971 
4972 
49/3 
4974 
4975 
49/6 
497/ 
49/8 
4979 



060054 
060056 

060060 
060062 
060064 
060066 
060070 
060072 
060074 
060076 
060100 
060102 
060104 

060106 

060106 
060107 
060110 
060111 

060112 
060112 
060114 
060116 
060120 
060122 
060124 
060126 
060130 
060132 
060232 



060232 
06027 3 
060330 
060374 
060441 
060504 
060550 
060613 
060662 
060730 
061012 
061106 
061174 
0*1250 
061333 
061421 
061510 
0615 M 
061700 



000010 
002000 
000040 
000100 
000200 
004000 
010O00 
020000 
040O00 
100000 
000000 
000000 
000000 



377 
037 
360 
000 



000000 
000000 
000000 
000000 
000000 
000000 
000000 

oooooo 



124 
127 
127 
127 
127 
127 
127 
127 
127 
106 
122 
124 
122 
106 
124 
103 
121 
114 
114 



162 
122 
122 
122 
122 
122 
122 
122 
122 
111 
145 
141 
145 
111 
141 
157 
145 
15 7 
157 



141 

111 
111 
111 
111 
111 
111 
111 
111 
106 
141 
160 
141 
106 
160 
156 
141 
157 
157 







WC.IREW | 


IREW*->IDBY DATA<3> 






WF.IERASE*256. 


IFAD-->ILDP DATA<4> 






WC.I1TAD i 


ITAD1-->I0NL DATA<5> 






WC.IOTAD 


ITAD0-->IROY DATA<6> 






WC.IFAD 


IERASE-->XSPEED DATA<7> 






WF.IEDIT+256. 


IEDIT-->IHER DATA<8> 






W*MUFM*256, 


IWFM-->IFMK DATA<9> 






WF.IREV*256. 


IREV-->ICER DATA<10> 






WT.IWRT4256. | 


IWRT»->IIDENT DATA<11> 






WF,IHISP*256. 


IHISP-->IE0T DATA<12> 






.WORD 


IRESV2 CUNUSED)DATA<13> 






.WORD 


IRESV1 (UNUSED)DATA<14> 






.WORD 


PARERR (UNTESTED)DATA<15> 


T19MSK; 






MASK Of UNTESTED BITS IN READ STATUS BYT 
UNTESTED BITS ARE SET TO 1 




.BYTE 


tC<000> 


BYTE MASK 




.BYTE 


tC<340> 


BYTE 1 MASK (PARERR, IRESV2, IRESV1) 




.BYTE 


tc<017> 


BYTE 2 (TIMER A, TIMER B,UNOEFINED< 1 ;0> ) 




.BYTE 





MAKE IT EVEN 


T19EXP: 






BEGIN EXPECTED DATA BUFFER 




.WORD 





MESSAGE TYPE 




.WORD 





DATA FIELD LENGTH 




.WORD 





RBPCR 




.WORD 





XSTO 




.UORO 





XST1 




.WORD 





lXST2 




.WORD 





lXST3 




.WORD 





XST4 (ALWAYS PRESENT FOR WRITE SUB.) 


U9EXSTA 


: ,BLKB 


64. 


lEXPECTED READ STATUS ANO WRITE FIFO DATA 


U9EXEND 


■ 




jEND EXPECTED DATA BUFFER 



lLOCAL TEXT MESSAGES FOR TEST 



T5T19ID: 

T19SSR: 

T192SSR.' 

T193SSR: 

T194SSR: 

T195SSR: 

T196SSR: 

T197SSR: 

T198SSRJ 

T191CMP: 

T192CMP: 

T193CMP: 

T195CMP; 

T196CMP: 

T197CMP: 

T198CHP; 

T199CMP: 

T19WSTR: 

T19RSTRJ 



.ASCIZ 
.ASCIZ 
.ASCI.? 
.ASCI/ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI2 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



ASCIZ 

WRITE 

W*ITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

FIFO 

Raad 

T«P* 

Raad 

FIFO 

T 



'Transport Bus Int»rfac* Loopback' 
CHAR AC (ERISTICS Failed' 
S'X^YSTEM (Writ* Iliac) Failad' 
SL-dSYSTEM (Raad Statu.) Failad' 
SUBSYSTEM (Writa Npr) Failad' 
SUBSYSTEM (Writa FIFO) Failad* 
SUBSYSTEM (Raad FIFO) Failao' 
SUBSYSTEM (Writ* Control) Failad* 
SUBSYSTEM (Writa Format) Failad' 
Statua in WORO *9 Incorract aftar 



Ini t ial ize* 
FIFO Data not aoual to Writ* FIFO , Data is In WORD 
Status 2 (in WORD *8) Incorract aftar RESET TAPE' 
FIFO Data not aoual to Writ* FIFO Data' 
Statua (In WORD *9) Incorr*ct aftar READ FIFO* 
Statu* 2 (in WORD *8 ) Incorract aft*r RESET TAPE' 
Control Signal Loopback Dat* Lrr r. Data is in WORD 08* 
Raad/Writ* Loopback Data Error, Data is in WORD 08' 
Loopback Data Error wh#n atrobad by Writ* stroba, Data is 
Loopbock Data Error wh*n atrobad by P.* ad Stroba, Data is 



08* 



in WORD $8 
n WORD #8' 



012701 

012702 
105021 
005302 
0055/5 
00030V 



062402 
000120 
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4980 

4981 

4982 

4985 

4984 

4985 

4986 

4987 

4988 

4989 

4990 

4991 

4992 

4995 

4994 

4995 

4996 

4997 

4998 

4999 

5000 

5001 

5002 

5005 

50O4 

5005 

5006 

500. 

50td 

5<>09 

5010 

5011 

5012 



Gib 



SEQ 0201 



062004 
062004 
062010 
062014 
062020 
062022 
062024 
062026 



062050 
062030 
062054 
062040 
062044 
062046 



062050 
062050 
062054 
062060 
062064 
062070 



004/37 
012700 
112720 
105010 
000207 



062004 
062540 
000005 



004737 
012700 
112720 
112710 
000207 



062004 

062540 
OOO010 
000030 



5015 
5014 
5015 
5016 
501 / 
5018 
5019 
5020 
5021 
5022 
5025 
5024 
5025 
5026 
502/ 
5028 
5029 
5030 
5051 
5052 
5055 
50 54 
50 55 
4 j056 



062072 
062072 
062076 
062102 
062106 
062112 
062114 



004737 
012701 
112721 
052 700 
110011 
00020/ 



062004 
062540 
000011 
000020 



I ♦ 






1 CLEAR 


MESSAGE 


BUFFER 


T19CLRBUF; 






SAVREG 






MOV 


0T19BFR.R1 




MOV 


*T19eEND-T19BFR,R2 


10$: 


CLRB 


CR1)» 




DEC 


R2 




BGT 


10$ 




RTS 


PC 


» SETUP 


T19PK2 


PACKET FOR READ STA 


T19SRD: 








JSR 


PC.T19CLRBUF 




MOV 


<T190T2.R0 




MOVB 


*PW,R0STATUS,(R0)» 




CLRB 


(RO) 




RTS 


PC 



j SAVE R1-R5 UNTIL NEXT RETURN 

l GET MESSAGE BUFFER ADDRESS 

»SI2E OF MESSAGE BUFFER IN BYTES 

jCl.EAR A BYTE 

I DONE? 

» BR IF NO 

I RETURN 



i CLEAR MESSAGE BUFFER 

lWR T Tf SUBSYSTEM DATA BUFFER 

• '■ '*,.<€ REAO STATUS COMMAND IN BSELO 

.ixcrtR BSEL1 

, RE TURN 



I SETUP T19PK2 PACKET FOR WRITE MISC R«9et Tap* Status F -FLOPS 

T19RSFIF: 

JSR 

MOV 

MOVB 

MOVB 

RTS 



PC.T19CLRBL* iCcfcAA MESSAGE BUFFER 

0T19OT2.M0 iWRITE SUBSYSTEM DATA BUFFER 

W>U.UMI5C,(R0)» jSTOWE WRITE MISCELLANEOUS IN BSELO 

#MS.RSFIF!MS,RSTAP,(RO) jSTORE 8SEL1 CLEAR FIFO CODES 

PC jRETURN 



SETUP T19PK2 PACKET FOR WRITE NPR 

INPUT: 

RO CONTAINS BSELJ NPR DATA 

SETS NP.WRP SINCE IF IT WRITES WRONG PARITY. 



T19SNPR; 




JSR 


PC.n9URBur 


MOV 


♦ U90T2.W1 


MOVB 


dPW.WNPR, 'RO« 


BIS 


*MP . WRP , RO 


MOVB 


R0,(R1) 


RTS 


PC 



j CLEAR MESSAGE BUFFER 
lURIft SUBSYSTEM DATA BUFFER 
iSTOK WRITE NPR IN BSELO 
jDON' T WRITE WRONG PARITY 
, STORE NPR DATA IN BSbLl 
t RE TURN 



<>621 16 
062116 



St TUP T19PK2 PACKET FOR READ FIFO 
INPUT: 



RO CONlAINS SEL2 BYTK COUNT 



004 7 37 062004 



19RFIF; 



JSR 



PC*;i9CLRUUF 



iCLEAR MESSAGE BUFFER 
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-11.6 



SEQ 0202 



5057 

5058 

5059 

5040 

5041 

504 2 

504 5 

5044 

5045 

5046 

504 7 

5048 

5049 

5050 

5051 

5052 

5055 

5054 

5055 

^r>56 

5u_>7 

5058 

5059 

5060 

5061 

5062 

5065 

5064 

5065 

!>U6S 

506/ 

5068 

5069 

50/0 

5071 

50 7 2 

50/5 

50 74 

50 75 

50 76 

5077 

50/8 

5079 

5080 

5081 

5002 

5085 

bOA4 

50«5 

5O06 

5067 

5088 

5089 

5090 

5091 

5092 

!,095 



062122 
062126 
062152 
06213* 



062156 
062156 
062142 
062146 
062152 
062156 
062160 
062162 
062164 
062166 
062170 



062172 
062W2 
062176 
062202 
062206 
062210 



062212 
062212 
062216 
0>,2222 
062226 
062250 



062252 
062232 
062256 
062242 
062246 



012701 
112721 
110021 
000207 



0O4757 
012702 
112722 
110022 
005022 
112122 
005*00 
005575 
000207 



0O4/57 
012701 
112721 
11002.1 

000207 



0O4757 
012701 
112721 
110021 
000207 



012700 
112 720 
112710 
000207 



062540 
000003 



062004 
062540 
000004 



0620O4 
062540 
000006 



O620O4 
062540 
000007 



062540 
OOOOIO 
000200 



MOV 


> T190T2.R1 


MOVB 


OPW.'RFIFO.CRD* 


Move 


R0,CR1)+ 


RTS 


PC 



I WRITE SUBSYSTEM DATA BUFFER 
I STORE READ FIFO IN BSELO 
, STORE HYTE COUNT IN BSEL1 
j RETURN 



SETUP T19PK2 PACKET FOR WRITE FIFO 



INPUT: 



RO CONTAINS BYTE COIWT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



T19WFIF 


« 
'SAVREG 






JSR 


PC.T19CLRBUF 




MOV 


*T190T2,R2 




MOVB 


•PW.WFIF0,(R2)» 




MOVB 


R0,(R2)» 




CLR 


CR2)* 


10$: 


MOVB 


(Rl)f.CR2)* 




DEC 


RO 




BGT 


101 




RTS 


PC 


, SETUP 


T19PK2 


FOR WRITE CONTROL 



j SAVE R1-R5 UNTIL NEXT RETURN 
j CLEAR MESSAGE BUFFER 
jWRITC SUBSYSTEM DATA BUFFER 
iSTORE WHITE FIFO IN BSELO 
jSTORE BYTF COUNT IN BSEL1 
jCLEAR SEL2 CLAUSED) 
l STORE DATA PATTERN BYTE 
jDONE ALL BYTES? 
j BR IF NO 
i RETURN 



i INPUT: 

i 



RO CONTAINS DRIVING DATA PATTERN 



T19WCTL; 




jSR 


PCU9CLRBUF 


MOV 


0T190T2.R1 


MOVB 


♦PW.WCTL.CRD* 


MOVB 


R0,(R1)» 


RTS 


PC 



I CLEAR MESSAGE BUFFER 

l WRITE SUBSYSTEM DATA BUFFER 

jSTORE WRITE CONTROL IN BSELO 

j STORE DATA WORD IN BSEL1 

jRETURN 



SETUP U9PK2 FOR WRITE FORMAT TRANSPORT REGISTER 



INPUT 



RO CONTAINS DRIVING DAiA PATTERN 



T19WFMT: 



JSR PC.T19CLRBUF 

MOV dT190T2,Rl 

MOVB *PW.WFMT t (Rl)* 

MOVB R0,(RI)» 

RTS PC 



t CLEAR MESSAGE BUFFER 
{WRITE SUBSYSTEM DATA BUFFER 
j STORE WRITE FORMAT IN BSELO 
j STORE DATA WORD IN BSEL1 
j RE TURN 



J ♦ 



j SETUP T19PK2 PACKET FOR WRITE MISC. INVERT EXTENDEJ FEATURES SWITCH 



T19SEXTj 

MOV OT19DT2,R0 

MOVB #PU.WMISC,(RO)» 

MOVB *M$,EXT,(RO) 

R1S PC 

i CLEAK EXPECTED OATA MESSAGE BUFFER 

i - 



iWHITE SUBS 1 ! HEM DATA BUFFER 

iSTURE WRITE MISCELLANEOUS IN BSELO 

j STORE INVERT EXTENDED FEATURES IN BSEL1 

iRETURN 
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116 



SEQ 0203 



50*4 062250 






5095 062250 


012701 


0601X2 


5096 062254 


012700 


000120 


5097 062260 


105021 




5098 062262 


005300 




5099 062264 


003375 




5100 062266 


000207 




5101 






5102 






510? 






5104 






5105 062270 






5106 062270 


012 702 


060112 


5107 062274 


012703 


062402 


5108 062300 


012700 


000010 


5109 062304 


012322 




5110 062306 


005300 




5111 062310 


003375 




5112 062312 


000207 




5113 






5114 






5115 






5116 






511/ 






5U8 






5119 






5120 






5121 






5122 






5123 






5124 






5125 






5126 






512/ 






5128 






5129 






5130 062314 






5131 062314 






5132 062320 


012701 


060046 


5133 062324 


005002 




513A 062326 


012703 


000020 


5135 062332 


006000 




5136 062334 


103001 




5137 062336 


051102 




5138 062340 


005721 




5139 062342 


005303 




514C 062344 


003372 




5141 062346 


010200 




5142 062350 


000207 




514 3 






5144 






5145 






514/ 


062360 




5149 






5150 






5151 






Jil52 062560 







T19CLEXP: 

MOV 
MOV 

10$: CLRB 
DEC 
BGT 
RTS 



♦T19EXP.R1 

0T19EXEND-T19EXP.R0 

CRD* 

RO 

10$ 

PC 



jGET EXPD ADDRESS 
jGET EXPD SIZE 
jCLEAR A BYTE 
I DONE? 
iBR IF NO 
I RE TURN 



•t WORDS 0-7 of axpd message BUFFER ■ to recv since not testing 



|S< 

T195ETEXP: 
MOV 
MOV 
MOV 

5*: MOV 
DEC 
BGT 
RTS 



*T19EXP,R2 
*T19BFR,R3 
*8.,R0 

RO 
5$ 

PC 



jGET EXPD 

iGET READ STATUS RECV BUFFER 

jSET WORDS 0-7 EXP-RECV 

jSET EXPD-RECV 

jOONE WORDS 0-7 WORDS? 

i BR IF NO 

jRETURN 



CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 
INPUTS: 

RO TEST PATTERN 
IMPLICIT INPUTS: 

T196FCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 
OUTPUTS: 



RO 



- LOW BYTE CONTAINS WRITE CONTROL DATA 

- HIGH BYTE CONTAINS WRITE FORMAT DATA 



T19CNVT 


• 








SAVREG 




jSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


«T19BFCTL,R1 


j CONVERSION TABLE ADDRESS 




CLR 


R2 


jINIT RESULT OF CONVERSION 




MOV 


♦16. ,R3 


iBIT COUNT 


10$: 


ROR 


RO 


jIS THIS BIT EQUAL TO 1? 




BCC 


20$ 


j BR IF NO 




BIS 


CRD.R2 


I SET CONVERTEO BIT 


20$: 


TST 


(Rl)» 


iPOINT TO NEXT BIT IN CONVERSION 




DEC 


R3 


j DONE? 




BGT 


10$ 


iBR IF NO 




MOV 


R2.R0 


jCOPY result 




RTb 


PC 


jRETURN 



TABLE 



. •< , »10>6177770 
I 

t WRITE CHARACTERISTICS COMMAND PACKET 

U9PACKET: 



j COMMAND PACKET FOR TEST 
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J16 



SEQ 0204 



5153 


062360 


100004 


5154 


062362 


062370 


5155 


062364 


000000 


5156 


062366 


000012 


5157 






5158 


062370 




5159 


062370 


062402 


5160 


0623 72 


000000 


5161 


062374 


000024 


5162 


062376 


OOOOOO 


5163 


062400 


00U007 


5164 






5165 






5166 






5167 






5168 


062402 




5169 


062402 


OOOOOO 


5170 


062404 


OOOOOO 


51 a 


062406 


OOOOOO 


5172 


062410 


OOOOOO 


5173 


062412 


OOOOOO 


5174 


062414 


OOOOOO 


5175 


062416 


OOOOOO 


5176 


062420 


OOOOOO 


5177 


062422 




5178 


062522 




5179 






5180 






5181 






5183 




062530 


5185 


062530 




5186 


062530 


10OOO6 


5187 


062532 


062540 


5188 


062534 


OOOOOO 


5189 


062536 


000012 


5190 






5191 


062540 




519? 


062540 


000 


5193 


062541 


000 


5194 


062542 


OOOOOO 


5195 


062544 




5196 






5197 






5198 


062644 
062644 






062644 


104401 


5199 






5200 






5201 






520? 






5203 






5204 






5205 






5206 






520 7 






5208 






bXGV 







.WORD 
.WORD 
.WORD 
.WORD 



T19DATA; 



WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100004 

T19DATA 



10. 



T198FR 


20. 




I MESSAGE BUFFER FOR ALL TEST 8 COMMANDS 



Tl9BFRs 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





T196FSTA; .BLKB 


64. 


T19BEN0: 





, WRITE CHARACTERISTICS COMMAND. WITH ACK 
j ADDRESS OF CHARACTERISTICS BLOCK 

, MINIMUM MESSAGE PACKET SIZE 

, CHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

I LENGTH OF MESSAGE BUFFER 

iESS,ENB,EAI,ERI 

jEXTFNDEO FEATURES UNIT NO. 



I BEGIN MESSAGE BUFFER 

iMESSAGE TYPE 

jDATA FIELD LENGTH 

,RBPCR 

iXSTO 

|XST1 

»XST2 

jXST3 

} XST4 

j READ 

tENO 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS AND WRITE FIFO BUFFER 
OF MESSAGE BUFFER 



jWRITE SUBSYSTEM READ STATUS COMMAND PACKET 



,*<.*10>6177770 



T19PK2: 








.WORD 


P.WRTSUBJP.ACK 




.WORD 


T19DT2 




,WO«D 







.WORD 


10. 


T19DT2: 








.BYTE 







.BYTE 







.WORD 







.BLKB 


64. 



lURITE SUBSYSTEM WITH ACK 
jLOW ADDRESS OF DATA BLOCK 
jHIGH ADDRESS OF DATA BLOCK 
, MINIMUM MESSAGE PACKET SIZE 

jDATA BLOCK 

iBSELO 

iBSELl 

{SEL2 

{WRITE FIFO DATA OUTPUT BUFFER 



ENDTST 



L10066; 



.jBTTL TEST 9s READ/WRITE DATA PARITY TEST 



TRAP 



CJETbT 



TEST DESCRIPTION: 



Tni» taat ver ! f i «• thot the Writ* Data Parity generator 
and t *# Read Data Parity checker operate ptoparly. The 
Transport Bu« «ign*l loopbttck mode !• enabled and a 
Sat Wrono, parity function !• executed. Than various 
Write Subsystem Mamory functions ara parformad to 
write data to and from tha FIFO in loopbock mode. 
The program than checks to insure a Read Data parity 
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K16 



SEQ 0205 



5210 

5211 

5212 

5213 

5214 

5215 

5216 

521? 

5218 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

523/ 

5238 

5239 

5240 

5241 

5242 

524 3 

5244 

5245 

5246 

524 7 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

52b5 
5266 
520 7 
5268 
5269 



trror occurred. 

A Reset FIFO is done and the Read Data parity 

error bit is again tested to insure it cleared , 

Finally a Clear wrong parity function is done 

and it is verified the data word can pass \r loopback 

mode without setting Read Data parity error, 

TEST STEPS: 

REPEAT FOR LOOPCNT 
BEGIN 

Write to TSSR ragister to soft initialize the controller 

Do WRITE CHARACTERISTICS to check for Extended Features Switch 

If Extended Features Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
BEGIN 

(* Verify Write Wrong Parity Sets Parity Error *) 

Do a WRITE NPR to set loopback and tape direction OUT 

and SET Write Wrong Parity. 
Do a WRITE FORMAT to set IRESV4-- >IRSTR - 1 (sets read strobe high) 
Do a WRITE FIFO with byte coon*: equal to 1 and Tape direction OUT 
Do a READ FIFO with tape direction OUT to load tope out write latch 
when wrong parity (IWP) is set) 
FORMAT to set I&ESV4-- >IRSTR - Cscts 
PAR IN H (Parity Error]) 

IRESV4-->IRSTR - 1 (sets read strobe high) 
STATUS 
NOT-1 
FIFO 



(this is 
Do a WRITE 

(Read Strobe sets 
a WRITE FORMAT to set 
a Write Subsystem READ 
Read Data parity error 
a Write Misc to RESET 



read strobe low) 



Do 
Do 
If 
Do 
Do 
If 



Then Print Error 



a Write Subsystem READ STATUS 
Read Data parity error NOT-0 



Then Print Error 



(♦ Verify Data c 
Do a WRITE FORMA 
Do a WRITE NPR t 
and CLE 
Do a WRITE FIFO 
Do a READ FIFO w 
Do a WRITE FORMA 
(Read St 
Do a WRITE FORMA 
Do a Write Subsy 
If Read Data par 



an be transferred without a Parity Error *) 

T to set 1RESV4-->IRSTR - 1 (sets read strobe high) 

o set loopback and tape direction OUT 

AR Write Wrong Parity, 

with byte count equal to 1 and Tape direction OUT 

ith tape direction OUT to load tape out write latch 

T to set IRESV4*->IRSTR • (sets read strobe low) 

robe should NOT set PAR IN H [Parity Error] here) 

T to aet IRESV4-->IRSTR - 1 (sets read strobe high) 

stem READ STATUS 

i ty error NOT-0 Then Print Error 



END 



062646 
062646 
062646 
062652 
062656 
062664 



012700 
004737 
012737 



065232 
016510 
000012 



002216 



T2OL00P: 



8GNTST 

MOV 
JSR 
MOV 



OTST20aO.ro 
PC.TSTSfcTUP 
010. .LOOPCNT 



T9: : 
jASCII MESSAGE TO IDENTIFY TEST 
I DO INITIAL TEST SETUP 
jPERFORM 10 ITERATIONS 



L16 
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5270 



5271 
5272 

5273 
52/4 
5275 
5276 



5277 
5278 
5279 
5280 
5281 
5282 
5283 
5284 
5285 



5286 
5287 

5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5500 
5301 



5302 
5303 

5304 
5305 
5306 
5507 
5508 
5309 
5510 



062664 
062664 
062664 

062666 
062666 
062672 
062674 
062676 
062676 
062 700 
062 702 
062704 

062706 
062712 
062716 
062722 
062736 
062740 
062742 
062742 
062742 
062744 
062746 
062750 
062^52 
062756 
062756 



062760 
062764 
062772 
062774 
063000 
063004 
063010 
063014 
063030 
063032 
063034 
063034 
063034 
063036 
063040 
063042 
063044 
063050 
063050 

063052 
063056 
063062 
063076 
063100 
063102 



104402 



004737 
103405 
010001 

104455 
001604 
003652 
0.12034 

005037 
012704 
004737 

103407 
010001 



104455 
001605 
065261 
012046 
005237 

] ^440d 



012701 
032761 
001026 
001737 
012704 
010465 
004737 

103407 
010001 



104455 

001606 
065516 

012046 
005237 

104406 

012704 
004737 

1034C7 
010001 



015774 



5$: 



002222 
0664 30 
010662 



10$ 



12$ j 



002222 



066452 

000200 000012 



15$ 

j 



066346 
066600 
OOOOOO 
016336 



22$ 



002222 



0664 30 
010662 



30$ 

J 



SEQ 0206 



BGNSUB i//////////// BEGIN SUBTEST ////////// 

T9.1: 

TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 

jWRITE TO TSSR TO SOFT INITIALIZE 
iBR If SOFT INIT OKAY 
I SAVE CONTENTS OF TSSR 
iDEVICE FATAL DURING INIT 

TRAP 



JSR 


PCSOFINIT 


BCS 


10$ 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



Do WRITE CHARACTERISTICS to check for Extended Features 



CLR FATFLG 

MOV 0T2OPACKET,R4 

JSR PC.WRTCHR 

FORCERROR 12$ 

BCS 15$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T20SSR, PKTSSR 



.WORD 
.WORD 
.WORD 
Switch 



C$ERDF 
900 

SFIERR 
SFIMSG 



j CLEAR FATAL ERROR FLAG 

iGET THE ADDRESS OF COMMAND PACKET 

iDO WRITE CHARACTERISTICS COMMAND 

jSSOFORCE ERROR IF FORCER- 1 
iBR IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



[DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 
CKLOOP 



FATFLG 



,SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



CSERDF 
901 
T20SSR 
PKTSSR 



If Extended Feature* Hardware Switch Clear then: 

Do Write Subsystem Write Miscellaneous to Set Extended Features* 



C$CLP1 



MOV *T206FR,R1 

BIT 0X2.EXrF,XST2(Rl) 

BNE 30$ 

JSR PC.T20SEXT 

MOV GT20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 22$ 

BCS 30$ 

MOV R0.R1 

NEXT.ERRNO 

ERRDF ERRN0.T202SSR, PKTSSR 



jMESSAGE BUFFER ADDRESS 

jEXTENDED FEATURES SWITCH SET? 

iBR IF YES 

, SETUP PACKET FOR WRITE MISC INVERT 

t GET WRITE SUBSYSTEM COMMAND PACKET 

I SET THE PACKET ADDRESS TO EXECUTE 

{WAIT FOR SSR TO SET 

jESOFO^CE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOD RETURN) 
iSAVE CONTENTS OF TSSR 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 

CKLOOP 



FATFLG 



iSET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



C$ERDF 
902 

T202SSR 
PKTSSR 



C$CLP1 



Do WRITE CHARACTERISTICS to select reserved unit 7 

MOV OT20PACKET.R4 iGET THE ADDRESS OF COMMAND PACKET 

JSR PC.WRTCHR iDO WRITE CHARACTERISTICS COMMAND 

FORCERROR 42$ i&QOFORCE ERROR IF FORCER*! 

BCS 50$ jBR IF CARRY SET (GOOD RETURN) 

MOV R0.R1 jSAVE CONTENTS OF TSSR 

NEXT.ERRNO 



M16 
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SEQ 0207 



5311 



5312 
5313 

5314 
5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
5324 
5325 
5326 
5327 
5328 
53?9 
5330 
5331 
5332 
5333 
5334 



5335 
53i6 

5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
534b 
534 7 



5348 
5349 

535U 
5351 
J.3S2 



063102 
063102 
063104 
063106 
063110 
063112 
063116 
063116 



063120 
063124 
063130 
063136 



063142 
063146 
063152 
063156 
063162 
063166 
063172 
063176 
063212 
063214 
063216 
063216 
063216 
063220 
063222 
063224 
063226 
063232 
063232 

063234 
063240 
063244 
063250 
0632S4 
063260 
063274 
063276 
063300 
063300 
063300 
063302 
063304 
063306 
063310 
063314 
063314 

063316 
063322 



104455 
001607 
065261 
012046 
005257 

104406 



012703 
012337 
042737 
010337 



01?700 
052700 
042700 
004 737 
012704 
010465 
004737 

103407 
010001 



104455 
001610 
065427 
012046 
005237 

104406 

012700 
004737 
0127C4 
010465 
004737 

103407 
010001 



104455 
001611 
0t>5601 
012046 
005237 

104406 

012 /CO 
012701 



002222 



002222 



000001 
066312 
066600 
000000 
016336 



002222 



000001 
002312 



42$ 



ERRDF ERRN0.T20SSR, PKTSSR 



{DEVICE FATAL SR 



50$ 



INC 
CKLOOP 



FATFLG 



{SET FATAL ERROR FLAG 
{LOOP ON ERROR, IF" FLAG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



SET 
TRAP 



C$ERDF 
903 
T20SSR 
PKTSSR 



CSCLP1 



002752 

002312 

177400 002312 

002316 



000100 
000040 
000020 
066216 
066600 
000000 
01633b 



REPEAT FOR 

MOV 



100$ 



102$ 



105$ 



112$ 



120$ 



ALL TEST PATTERNS 
$T£TBLK,R3 
(R3>,DATA 



IN 



MOV 

BIC #tC*377>,DATA 

MOV R3.T5TPTR 

Do a WRITE NPR to set loopback 

and S*LT Writ* Wrong 
MOV ONP.OUr.RO 
BIS $NP.LnoP,RO 
BIC 4NP.URP.R0 
JSR PC.T20WNPR 
MOV 4T20PK2.R4 
MOV R4,TSDB(R5) 
JSR PC.CHKTSSR 

102$ 



FORCERROR 

BCS 105$ 

MOV R0.R1 

NEXT.ERhNO 

ERRDF ERRN0 t T204SSR # PKTSSR 



TST8LK TABLE 

jGET FIRST PATTERN ADDRESS 
iGET A TEST PATTERN 
iDATA IS BYTE 

i SETUP CURRENT TSTBLK POINTER 
and tape direction OUT and 
Parity. 

jSET TAPE DIRECTION OUT 

I SET LOOPBACK 

;SET WRITE WRONG PARITY (INVERTED) 

j SETUP T20PK2 FOR WRITE NPR 

{GET WRITE SUBSYSTEM COMMAND PACKET 

j SET THE PACKET ADDRESS TO EXECUTE 

iWaxT FOR SSR TO SET 

isaoroRCE error if forcer*i 

{BR IF CARRY SET (GOOD RETURN) 
l SAVE CONTENTS OF TSSR 



j DEVICE FATAL SSR 



INC 


FATFLG 


CKLOOP 




Do a 


WRITE 


FORMAT to 


MOV 


OWF 


.I4RES.R0 


JSR 


PC. 


T20WFMT 


MOV 


0T20PK2.R4 


MOV 


R4, 


TSDB(R5) 


JSR 


PC, 


CHKTSSR 


FORCERROR 


112$ 


BCS 


120$ 


MOV 


RO, 


Rl 


NEXT 


.ERRNO 





j SET FATA-. ERROR F 
i^OOP ON ERROR. IF 

set IRESV4-->IRSTR • 1 (sets 
lIRESV4»->IRSTR • 
iSET'JP T20PK2 FOR 



FAILED TO SET 






TRAP 


C$ER")F 




.WORD 


904 




.WORD 


T204SSR 




.WORD 


PKTSSR 


LAG 






FLAG 


SET 






TRAP 


C$CLP1 


i read 

1 

WRITE 


strobe 


high) 


FORMAT 





{GET WRITE SUBSYSTEM COMMAND PACKET 
jSET THE PACKET ADDRESS TO EXECUTE 
l WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER*! 
iBH IF CARRY SET (GOOD RETURN) 
j SAVE CONTENTS OF TSSR 



ERRDF ERRNO .T208SSR, PKTSSR 



INC 
CKLOOP 



FATFLG 



Do a WRITE FIFO with byte count 
MOV 41, RO 
MOV 0DATA.R1 



iDF.VICE FATAL SSR FAILED TO SET 




TRAP 




C$ERDF 


.WORD 




905 


.WORD 




T208SSR 


.WORD 




PKTSSR 


j SET FATAL ERROR FLAG 






{LOOP ON ERROR. IF FLAG SET 






TRAP 




C$CLP1 


equal to 1 and Tape direction 


OUT 


(WRITE 1 3YTE 






{FIFO WRITE DATA ADDRESS 







W WTU V7 



HI 

CI 
Dl 

Fl 
Gl 

HI 
II 

Jl 
Kl 
11 
Ml 
Nl 



B5 
C5 
D5 
E5 
F5 
G5 
H5 
15 
u5 
l<5 
L5 
M5 
N5 



.B9 
.C9 

.D9 
,E9 

.F9 
.G9 
.H9 
.19 
. J9 
J<9 
.L9 
.M9 
,N9 



B13 
C13 
.013 
E13 
F13 
G13 
H13 
113 
J13 
K13 
L13 
M13 
N13 



B2 
C? 
D? 
E2 
K? 
G2 

I? 
J2 
K2 
I 2 
M2 
N2 



,B6 

.C6 
.06 
.E6 
.F6 
,G6 
.H6 
.16 
. J6 
.K6 
.16 
.M6 
.N6 



BIO 

CIO 
D10 
E10 
F10 
G10 
H10 
110 
J10 
K10 
L10 
M10 
rUO 



B14 
C14 
014 
E14 
FM 
G14 
H14 
114 
J14 
K14 
L14 
M14 
N14 



.B3 
.C3 
.D3 
.f.S 

.F3 
.G3 
,H3 
.13 
.J3 
.K3 
.L3 
.M3 
.N3 



■ B7 
,C7 
.D7 

■ E7 
.F7 
,G7 
.H7 
.17 
. J7 
.K7 
.L7 
.M7 
.N7 



Bll 
Cll 
Dll 
Ell 
FH 
Gil 
Hll 
111 
Jll 
Kll 
Lll 
Mil 
Nil 



B15 

CIS 
1)15 
E15 
F15 
G15 
HIS 
115 
J1S 
K15 
L15 
M15 
N15 



.84 
.C4 
.04 
.E4 
.F4 
.G4 
.H4 
.14 
. J4 
.K4 
.14 
.M4 
,N4 



,B8 
.C8 
,D8 
.E8 

.F8 
,G8 
.H8 
.18 

. ja 

.K8 
.L8 
.M8 
,N8 



.B12 

.C12 
.012 
.E12 
.F12 
.G12 
.H12 
,112 
. J12 
.K12 
. L 1 Z 
.M12 
,N12 



B16 
C16 
016 
E16 
F16 
G16 
H16 
116 
J 16 
K16 
L16 
M16 



Bl 
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TEST 9 : READ/WRITE DATA PARITY TEST 

JSR PCT20WFIF 

MOV #T20*>K2,R4 

MOV R4,TSDB(«5) 

JSR PC, CHKTSSR 

FORCERROR 152* 

BCS 1601 

MOV R0,R1 

NEXT ERRNO 
152$: ERRDF ERRNO,T205SSR, PKTSSR 



SEQ 0208 



5353 


063326 


004737 


066256 


5354 


<\L332 


012704 


066600 


5355 


063356 


010465 


000000 


5356 


063342 


004737 


016336 


5357 


J63346 






5358 


063362 


103407 




5359 


063364 


010001 




5360 


063366 






5361 


063366 








063366 


104455 






063370 


001612 






063372 


065472 






063374 


012046 




5362 


063376 


005237 


002222 


5363 


063402 








063402 


104406 




5364 








5365 








5366 


063404 


012700 


000001 


5367 


063410 


004737 


066236 


5366 


063414 


012704 


066600 


5369 


063420 


010465 


000000 


5370 


063424 


004737 


016336 


5371 


063430 






5372 


063444 


103407 




5373 


063446 


010001 




5374 


063450 






5375 


063450 








063450 


104455 






063452 


001613 






065454 


065536 






063456 


012046 




5376 


063*60 


C05237 


002222 


5377 


063464 








063464 


104406 




5378 








5379 








5360 


063466 


005000 




5361 


063470 


004737 


066312 


5362 


063*74 


012704 


066600 


5363 


063500 


010465 


OOOOOO 


5364 


063504 


004737 


016336 


5385 


063510 






5366 


063524 


103407 




5387 


063526 


010001 




5366 


063530 






5389 


063530 








063530 


104455 






063532 


001614 






063534 


065601 






063536 


012046 




5390 


063540 


005237 


002222 


5391 


063544 








063544 


104406 




5392 








5593 


063546 


012700 


000001 


5394 


063552 


004737 


066312 



iSETUP T20PK2 FOR WRITE FIFO 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET AOORESS TO EXECUTE 
I WAIT FOR SSR TO SET 

iNPTORCt ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
I SAVE CONTENTS OF TSSR 



jOEVICE FATAL SSR 



160»! 

I 
3 



1601 j 

1 
l 



200 1 i 

I 



INC 
CKLOOP 



FATFLG 



i SET KM 
l LOOP i- 



FAILEO 10 SET 
TRAP 
.WORD 
.WORD 
.WORD 



UfcRDF 

*06 

1205SSR 

PKTSSR 



•>L ERROR Fl 

' Fr.noR, IF 



AG 
FLAG 



Do • READ FIFO with tapa direction 
(thia if> wHan urono, parity ( U* % ) 



SE V 
TMAP 

OUT to load tap* out Krita 

•• tat) 



CICLP1 
latch 



MOV •1,R0 

JSR PC,T20*FIF 

MOV CT20f*<2,R4 

MOV R4.TSOBCR5) 

JSR PC. CHKTSSR 



FORCERROR 
BCS 1601 

MOV R0.R1 

Nf XT.ERRNO 



1721 



nil flEAO BYTE COUNT 

>SE T UP T20PK2 FOR BEAD FIFO 

iGEt WRITE SUBSYSTEM C0T1MAND PACKET 

I SET THE PACKET ADORESS TO EXECUTE 

iWAIT FOR SSR .0 SET 

iMOFORC: ERROR IF FORCER" 1 



f BR IF CARRY 
l SAVE COWEf. 



;et cgooo 

OF TSSR 



RETURN) 



172$ j ERRDF ERRN0.T206SSR. PKTSSR 



iDEVIC'c FAT«h. SSR 



INC 
CKLOOP 



Do 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



tSET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



a WRITE FORMAT to aat 
(Raad Stroba aata 
Cv.R RO 

JSR PC.T20WFMT 

hOV #T20PK2.R4 

MOV R4,TS0B(H5) 

JSR PC. CHKTSSR 

FORCERROR 1921 

BCS 2001 

MOV RO.Rl 

NEXT.ERRNO 



SET 

TRAP 

•troba 



IRESV4..>IRSTR • (aata raad 
PAR IN H [Parity Error]) 

»IRESV4-->IRSTR ■ 

i SETUP T20PK2 FOR WRITE FORMAT 

iGET WRITE SUBSYSTEM COMMANO PACKET 

i SET THE PACKET ADORESS TO EXECUTE 

iWAIT FOR SSR TO SET 

tfiMOFORCE ERROR IF FORCER-1 

tBR IF CARRY SET (GOOO RETURN) 

I SAVE CONTENTS OF TSSR 



CIERDF 

907 

T206SSR 

PKTSSR 



CICLPl 
lOH) 



1921 j ERROF ERRNO,T208SSR, PKTSSR 



iDEVICE FATAL SSR 



INC 

CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



CIERDF 
908 

T208SSR 
PKTSSR 



I SET FATAL ERROR FLAG 
iLOOP ON ERROR, IF FLAG 



Do • WRITE FORMAT 
MOV #WF.I4RES 

JSR PC.TaO^MT 



to 
RO 



fft IRESVA-->IRSTR • 



SET 
TRAP 
• troba 



1 (aata raad 
iIRCSV4--»IRSTR • 1 

I SETUP T20PK^ FOR WRITE FORMAT 



CICLPl 

high) 
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TEST 9: READ/tfUTf DATA PARITY TEST 



CI 



SEQ 0209 



5395 063556 


012704 


066600 


5396 063562 


010465 


OOOOOO 


5397 063566 


004737 


016336 


5396 063572 






5399 063606 


103407 




5400 063610 


010001 




5401 063612 






5402 063612 






063612 


104455 




063614 


001615 




063616 


065601 




063620 


012046 




5403 063622 


005237 


002222 


5404 063626 






063626 


104406 




5405 






5406 063630 


004737 


066176 


5407 063634 


012704 


066600 


5406 063640 


010465 


OOOOOO 


5409 063644 


004737 


016336 


5410 063650 






5411 063664 


10^407 




5412 063666 


010001 




5413 063670 






5414 063670 






063670 


104455 




063672 


001616 




063674 


065362 




063676 


012046 




5415 063700 


005237 


002222 


5416 063704 






063704 


104406 




5417 






5418 063706 


004737 


066404 


5419 063712 


012701 


065132 


5420 063716 


012702 


066472 


5421 063722 


011211 




5422 063724 


016261 


000002 000002 


5423 063732 


052711 


100000 


5424 063736 


005000 




5425 063740 


012701 


066452 


542b 063744 


012702 


065112 


5427 063750 


012703 


000024 


5428 063754 


004737 


011500 


5429 063760 






5430 063770 


103404 




5431 063772 






5432 063772 






063772 


104456 




•?^*774 


091617 




063776 


06564? 




064000 


012350 




5433 064002 






064002 


104406 




54M 






5455 064004 


012700 


000020 


5436 064010 


004737 


066332 



2121: 



MOV «T20PK2,R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 212$ 

BC5 2201 

MOV R0.R1 

NEXT.RRRNO 

ERRO^ ERRN0.T208SSR .PKTSSR 



iGET WRITE SUBSYSTEM COMMAND PACKET 
i SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

iBfiOFORCE ERROR IF FORCER-1 
iBP IF CARRY SET CGOOO RETURN) 
l SAVE CONTENTS OF TSSR 





INC FATFLG 


220$: 


CKLOOP 


1 


Do a Writ* Su6«y«t«m READ ST. 
JSR PC.T20S&0 






MOV #T20PK2.R4 




MOV R4.TSD6CR5) 




JSR PC.CHKTSSR 




FORCERROR 232$ 




BCS 240$ 




MOV R0.R1 




NEXT.ERRNO 


232$: 


ERRDF ERRNO . T20iSSR , PKTSSR 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORO 
.WORD 
.WORD 
tSET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 

909 

T208SSR 

PKTSSR 



C$CLP1 



iSETUP PACKET FOR READ STATUS 
iGET WRITE SUBSYSTEM COMMANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iMOFORCE ERROR IF FORCER-1 
iBR IF CARRY SET CGOOO RETURN) 
l5AVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 



TRAP 


C$ERDF 


.WORD 


910 


.WORD 


T203SSR 


.WORD 


PKTSSR 





INC 


FATFLG 


240$: 


CKLOOP 




I 


If R«*d 


Data parity #rror NO 




JSR 


PC.T20SETEXP 




MOV 


♦T20EXSTA.R1 




MOV 


#T20eFSTA,R2 




MOV 


(R2).(R1) 




MOV 


2(R2),2(R1) 




BIS 


•Sl.PARERR.CRl) 




CLR 


RO 




MOV 


#T206FR,R1 




MOV 


#T20£XP,R2 




MGV 


•20., R3 




JSR 


PC.CKMSG2 




FORCERROR 252$ .NOTSSR 




BCS 


260$ 




NEXT. ERRNO 


252$: 


ERRHRD 


ERRNO, T20SWP.MSGSTAT 



I SET FATAL ERROR FLAG 
lLOOP ON ERROR. IF FLAG SET 

TRAP C$CLP1 

TK«n Print Error 
iSET WOROS 0-7 EXPD-RECV (NOT TESTING) 
iGET EXPECTED REAO STATUS 
iGET RECV REAO STATUS 
i SET EXPO WORD ♦« ■ RECV TEMP 
iSET EXPO WORO #9 • RECV CNOT TESTED) 
i SET EXP PAR ERR -1 
I HIGH RECV AOORESS FOR CKM5G2 
I LOW RECV ADORFSS FOR CKMSG2 
i EXPO AOORESS 

iNUMBER OF BYTES TO COMPARE 
lEXPD EQUAL RECV? 
iQSO 
iBR IF YES 



260$; CKLOOP 

» Do a Writ* Mi«c to RESET 

MOV ♦MS.RSFIF.flQ 

JSR PC.T20WMI5C 



jREPORT ERROR 



jLOOP ON ERROR, IF FLAG 



FIFO 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
911 

T20SWP 
MSGSTAT 

C$CLP1 



» SET RESET FIFO CQMMANO 

I SETUP T20PK2 FOR WRITE MISC 



Dl 



TSV5 - HAROWARF 


TESTS 


MACRO M1200 2( 


TEST 9 : 


READ/WRITE DATA PARITY TEST 


5437 


064014 


012704 


066600 


54 38 


064020 


010465 


OOCOOO 


54 39 


064024 


004737 


01 336 


5440 


064030 






5441 


064044 


103407 




5442 


064046 


010001 




544 3 


064050 






5444 


064050 








064050 


104455 






06405? 


001620 






064054 


065316 






064056 


012046 




5445 


064060 


005237 


002222 


5446 


064064 








064064 


104406 




5447 








5448 








5449 


064066 


004737 


066404 


5450 


064072 


012701 


065132 


5451 


064076 


012702 


0664 72 


5452 


064102 


011211 




5453 


064104 


016261 


000002 000002 


5454 


064112 


042711 


100000 


5455 


064116 


005000 




5456 


064120 


012701 


066452 


5457 


064124 


012702 


065112 


5458 


064130 


012703 


000024 


5459 


064134 


004737 


011500 


5460 


064140 






5461 


064150 


X03404 




5462 


064152 






5463 


064152 








064152 


104456 






064154 


001621 






064156 


065756 






064160 


012350 




54 6* 


064162 








064162 


104406 




5465 








5466 








5467 


064164 


012700 


000003 


5468 


064170 


004737 


06631; 


5469 


064174 


012704 


0666CKJ 


54 70 


064200 


010465 


000000 


5471 


064204 


004737 


016336 


5472 


064210 






5473 


064224 


103407 




54 74 


064226 


010001 




5475 


064230 






5476 


064230 








064230 


104455 






064232 


001622 






064234 


065o01 






064236 


0i204b 




547? 


064240 


005237 


00222i? 


54 78 


064244 

064244 


104406 





290$} 

1 
I 



302$ : 



SEQ 0210 



MOV dT20PK2.R4 

MOV R4.TSDBCR5) 

JSR PC.CHKTSSR 

FORCERROR 282$ 

BCS 290$ 

MOV R0.R1 

NEXT, ERRNO 
282$? ERRDF ERRNO, T202SSR, PKTSSR 



iGET UP" SUBSYSTEM COMMANO PACKET 
»SE7 THE PACKET ADDRESS TO EXECUTE 
iWf.TT FOR SSR TO SET 

lOfiOFORCE ERROR IF FORCER -1 
ifW IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS OF TSSR 



jDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



READ 
rrror 



SET 
TRAP 



Do ■ Writ* Subsystem 
If Raad Data par i ty 
J.SR PC.T20SETEXP 

M0> #T20€XSTA,R1 

MOV #T20eFSTA,R2 

MOV (R2),(R1) 

MOV 2(H2).2(R1) 

BIC ♦Sl.PARERR.CRl) 

Cl R RO 

MOV 0T2O6FR.R1 

MOV #T20EXP,R2 

MOV #20.. R3 

JSR °CCKM3G2 

302$ # N0TSSR 



FORCERROR 

BCS 320$ 

NEXT, ERRNO 

ERRHRD ERRNO, T20RSF ,MSGSTAT 



STATUS 

NOT«0 Than Print Error 

iSET WORDS 0-7 EXPO-RECV (NOT 

iGET EXPECTED READ STATUS 

iGET RECV READ STATUS 

iSET EXPO WORO #8 • RECV TEMP 

iSET EXPO WORD *9 - RECV (NOT 

l SET EXP PAR ERR -0 

iHIGH RECV ADORESS FOR CKMSG2 

i LOW RECV ADORESS FOR CKMSG2 

i EXPO ADDRESS 

(NUMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV? 

1 000 

iBR IF YES 



C$ERDF 
912 

T202SSR 
PKTSSR 



C$CLP1 



TESTING) 



TESTED) 



iREPORT ERROR 



320$; CKLOOP 



(* Verify Data can b# 
Do a WRITE FORMAT to 
MOV #WF. I4RES.R0 

JSR PC.T20WFMT 

MOV #T20PK2.R4 

MOV R4,TSDB(R5) 

JSR PC.CHKTSSR 

FORCERROR 332$ 

BCS 340$ 

MOV R0.R1 

Nfc X T . ERRNO 



TRAP 


C$ERHRD 


.WORD 


913 


.WORD 


T20RSF 


.WORD 


MSGSTAT 


FLAG SET 




TRAP 


CICLP1 


Error a) 




raad at rob* 


high) 



iLOOP ON ERROR. IF 

tranafarrad without a Parity 

•at IRESV4-->IRSTR - 1 (aata 
|IRESV4-->IRSTR - 1 
l SETUP T20PK2 FOR WRITE FORMAT 
jGET WRITE SUBSYSTEM COMMANO PACKET 
j SET THE PACKET ADDRESS TO EXECUTE 
iWAIT FOR SSR TO SET 

jMDFORCE ERROR IF F03CER-1 
iBR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



332$: ERRDF ERRNO, T2C3S5R.PKTS5R 



3«0$: 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR 



l SET FATAL ERROR F 
tLOOP ON ERROR, IF 



FAILED TO SET 




TRAP 


C$ERDF 


.WORD 


914 


.WORD 


T208SSR 


.WORD 
i flr 


PKTSSR 


FLAG SET 




TRAP 


C$CLP1 



El 
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TEST 9; READ/WRITE DATA PARITY TEST 



SEQ 0211 



54 79 
5480 
5481 
5482 
5485 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 



5493 
5494 

5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5505 
5506 



550 7 
5508 

5509 
5510 
5511 
5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 



5520 
5521 



064246 
064252 
064256 
064262 
064266 
064272 
064276 
064 302 
064316 
064320 
064322 
064322 
064 322 
064 324 
064326 
064330 
064332 
064336 
064336 

064 340 
064344 
064350 
064354 
064360 
064364 
064370 
064404 
064406 
064410 
064410 
064410 
064412 
064414 
064416 
064420 
064424 
064424 

064426 
064432 
064436 
064-442 
064446 
064452 
064466 
0644 70 
064472 
0644 72 
064472 
0644 74 
0644 76 
064500 
064502 
064506 



012700 
052700 
052700 

004737 
012704 
010465 
004737 

103407 
010001 



104455 
001623 
065427 
012046 
005237 

104406 

012700 
012701 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001624 
065472 
012O46 
05237 

104406 

012700 
004737 
012704 
010465 
OW37 

103407 
01OO01 



104455 
001625 
065536 

012046 
005237 



000100 
000040 
000020 
066216 
066600 
000000 
016336 



002222 



000001 
002312 
066256 
066600 
000000 
016336 



3601; 

i 



002222 



000001 
066236 
066600 
OOOOOO 
016336 



Do a 


WRITE WPR to lit 


loopback 




and CLEAR Writ* 


Wrong 


MOV 


♦NP.OUT.RO 






BIS 


♦NP.LOOP.RO 






BIS 


♦NP.WRP.RO 






JSR 


PC.T20WNPR 






MOV 


JT20PK2.R4 






MOV 


R4,TSD6(R5) 






JSR 


PC.CHKTSSR 






FOHCERROR 3521 






BCS 


360$ 






MOV 


R0.R1 






NEXT 


.ERRNO 







and tap* direction OUT and 

Parity. 
I SET TAPE DIRECTION OUT 
i SET LOOPBACK 

iCLEAR U ITE WRONG PARITY (INVERTED) 
iSETUP ^dOPK^ FOR WRITE NPR 
iGET WRITE SUBSYSTEM COrtlANO PACKET 
I SET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

»S6OF0RCE ERROR IF FORCER-1 
jBR IF CARRY SET (GOOO RETURN) 
I SAVE CONTENTS OF TSSR 



352$} ERRDF ERRNO, T204SSR, PKTSSR 



tDEVICE FATAL SSR 



INC 
CKLOOP 



FATFLG 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
915 

T 204 SSR 
PKTSSR 



I SET FATAL ERROR FLAG 
I LOOP ON ERROR, IF FLAG 



Do a WRITE FIFO with byte count 

MOV •l.RO 

MOV #0ATA,R1 

JSR PC,T20WFir 

MOV #T20PK2,R4 

MOV R4.TS0BCR5) 

JSR PC.CHKTSSR 



Tape 



SET 
TRAP 

direction 



CI CLP I 

OUT 



FORCERROR 
BCS 380$ 
MOV R0.R1 
NEXT, ERRNO 



372$ 



equal to 1 and 

jWRITE 1 BYTE 

iFTFO WRITE DATA ADDRESS 

j SETUP T20PK2 FOR WRITE FIFO 

jGET WRITE SUBSYSTEM COHMANO PACKET 

» SET THE PACKET ADDRESS TO EXECUTE 

jWAIT FOR SSR TO SET 

ifiMDFORCE ERROR IF FORCER -1 
jBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 



372$ s ERRDF ERRNO, T205SSR. PKTSSR 



jDEVICE FATAL SSR 



FAILED TO SET 
TRAP 
.WORD 
.WORD 
.WORD 



C$ERDF 
916 

T205SSR 
PKTSSR 





INC 


FATFI G 


3801: 


CKLOOP 




i 


Do a READ FIFO with tape dir< 




MOV 


•I, HO 




JSR 


PCT20RFIF 




MOV 


♦T20PK2.R4 




MOV 


R4.TSDBCR5) 




JSR 


PC.CHKTSSR 




FORCERROR 392$ 




BCS 


400$ 




MOV 


R0.R1 




NEXT .ERRNO 


392$; 


ERMDF 


ERRN0.T206SSR, PKTSSR 



tSET FATAL ERROR FLAG 
l LOOP ON ERROR, IF FLAG 



SET 
TRAP 
wr 5 te 



C$CLP1 
latch 



002222 



400$; 



INC 
CKLOOP 



FATFLG 



on OUT to load tap« out 

j SET READ BYTE COUNT 

I SETUP T20PK2 FOR READ FIFO 

jGET WRITE SUBSYSTEM COMMANO PACKET 

» SET THE PACKET ADORESS 1*0 EXECUTE 

jWAIT FOR SSR TO SET 

iMDFORCE ERROR IF FORCER-1 
I BR IF CARRY SET (GOOO RETURN) 
iSAVE CONTENTS OF TSSR 



DEVICE FATAL SSR 



I SET FATAL ERROR FLAG 
jLOOP ON ERROR, IF FLAG SET 



FAILED TO SET 




TRAP 


CIERDF 


.WORD 


917 


.WORD 


T206SSR 


.WORD 


PKTSSR 
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Fl 



SEQ 0212 



5522 
5523 
5524 
5525 
5526 
552 7 
5528 
5529 
5530 
5531 
5532 
5533 



5534 
5535 

5536 
5537 
5538 
5539 
5540 
5541 
5542 
5543 
5544 
5545 
5546 



554 7 
5548 

5549 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 
5558 
5559 



5560 
556i 

5562 



064506 104406 



064510 
064512 
064516 
064522 
064526 
064532 
064546 
064550 
064552 
064552 
064552 
064554 
064556 
064560 
064562 
064566 
064566 

064570 
064574 
064600 
064604 
064610 
064614 
064630 
064632 
064634 
064634 
064634 
064636 
064640 
064642 
064644 
064650 
064650 



064652 
064656 
064662 
064666 
064672 
064 706 
064710 
064712 
064712 
064712 
064714 
064 716 
064 720 
064 722 
064/26 
064 726 



0050O0 

004737 066312 

012704 066600 

010465 000000 

004737 016336 

103407 
010001 



104455 
001626 
065601 
012046 
005237 

104406 

012700 
004737 
012704 
010465 
004737 

103407 
010001 



104455 
001627 
Of 5601 
012046 
005237 

104406 



004737 
012704 
010465 
004737 

10*407 
010001 



104455 
001630 
065 362 
012046 
005237 

104406 



412$: 



002222 



000001 
066312 
066600 
000000 
016336 



420$: 

i 



432$: 



002222 



066176 
066600 
000000 
016336 



440$: 



002222 



460$: 

i 



Do a WRITE FORMAT to eet IRE5V4 
(Read Strobe aets PAR IN 
CLR RO 

JSR PC.T20WFMT 

MOV 0T2OPK2.R4 

MOV R4,TSD8(R5) 

JSR PC.CHKTSSR 

FORCERROR 412$ 

BC5 420$ 

MOV R0.R1 

NEXT. ERRNO 
ERRDF ERRNO , T208SSR , PKTSSR 



INC 
CKLOOP 



FATFLG 



Do a WRITE FORMAT to set IRESV4 

MOV #UF,I4RES,R0 

JSR PC.T20WFMT 

MOV #T20PK2.R4 

MOV R4.TS08CR5) 

JSR PC.CHKTSSR 

FORCERROR 432$ 

BCS 440$ 

MOV R0.R1 

NEXT. ERRNO 

ERRDF ERRNO , T208SSR , PKTSSR 



TRAP C$CLP1 

■•>IRSTR - (aets read strobe low) 
H CParity Error]) 
|IRESV4-->IRSTR - 
i SETUP T20PK2 FOR WRITE FORMAT 
jGET WRITE SUBSYSTEM COMMAND PACKET 
iSET THE PACKET ADDRESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSWDFORCE ERROR IF FORCER-1 
iBR IF CARRY SET (GOOO RETURN) 
j SAVE CONTENTS OF TSSR 

j DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 918 
.WORD T208SSR 
.WORD PKTSSR 

jSET FATAL ERROR FLAG 

I LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 

-•>IRSTR - 1 (sets raad strobe high) 

ilRESV4-->IRSTR - 1 

I SETUP T2CPK2 FOR WRITE FORMAT 

jGET WRITE SUBSYSTEM COMMANO PACKET 

iSET THE PACKET ADORESS TO EXECUTE 

,WAIT FOR SSR TO SET 

iSSOFORCE ERROR IF FORCER-1 

:BR IF CARRY SET (GOOO RETURN) 

tSAVE CONTENTS OF TSSR 



INC 
CKLOOP 



FATFLG 



iDEVICE FATAL SSR FAILED TO SET 

TRAP 
.WORD 
.WORD 
.WORD 
j SET FATAL ERROR FLAG 
lLOOP ON ERROR, IF FLAG SET 

TRAP 



C$ERDF 
919 

T208SSR 
PKTSSR 



C$CLP1 



i Do a Write Subsystem READ STATUS 

JSR PC.T20S&D 

MOV #T20PK2,R4 

MOV R4.TSD6CR5) 

JSR PC.CHKTSSR 

FORCERROR 452$ 

BCS 460$ 

MOV R0.R1 

NEXT. ERRNO 
452$: ERRDF ERRNO, T203S5R, PKTSSR 



iSETUP PACKET FOR READ STATUS 
jGET WRITE SUBSYSTEM COMMAND PACKET 
I SET THE PACKET ADORESS TO EXECUTE 
jWAIT FOR SSR TO SET 

iSaOFORCE ERROR IF FORCER-1 
,BR IF CARRY SET (GOOO RETURN) 
l SAVE CONTENTS OF TSSR 



{DEVICE FATAL SSR FAILED TO SET 

TRAP 



INC 
CKLOOP 



FATFLG 



» SET FATAL ERROR FLAG 
I LOOP ON ERROR. IF FLAG 



If Read Data parity error NQT»0 Then Print Error 



.WORD 
.WORD 
.WORD 

SET 
TRAP 



C$ERDF 

920 

T203SSR 

PKTSSR 



CSCLPl 



Gl 
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5563 064730 


004737 


066404 


5564 064 734 


012701 


065132 


5565 064740 


012702 


066472 


5566 064 744 


011211 




5567 064746 


016261 


000002 00)002 


5568 064 754 


0427H 


100000 


5569 064 760 


005000 




5570 064762 


012701 


066*52 


5571 064 766 


012 702 


065112 


5572 064772 


012703 


000024 


5573 064776 


004737 


011500 


5574 065002 






5575 065012 


103404 




5576 065014 






5577 065014 






065014 


104456 




065016 


001631 




065020 


066057 




065022 


012350 




5578 065024 






065024 


104406 




5579 






55«0 065026 






5581 065036 


013703 


002316 


5562 065O42 


020327 


003062 


5583 065046 


103002 




5564 065050 


000137 


063124 


5585 065054 






5586 






5587 065054 






065054 






065054 


104403 




5588 






5589 065O56 


005737 


002222 


5590 065062 


001402 




5591 065O64 


004737 


017202 


5592 0650 70 






5593 065070 


004737 


016456 


5594 065074 


103002 




5595 065076 


000137 


050556 


5596 065102 






5597 065102 






065102 


104432 




065104 


001610 




5598 






5599 






5600 






5601 






5602 






5603 






5604 






5605 065106 






5606 






560/ 065106 


577 




5608 0*5107 


05? 




5609 065 110 


360 




5610 065111 


000 





472$j 



480$ j CKLOOP 



JSR 


PCT20SETEXP 


MOV 


#T20EXSTA,R1 


MOV 


*T20BF*STA,R2 


MOV 


(R2).(R1) 


MOV 


2(R2),2(R1) 


BIC 


#S1,PARFRR,(R1) 


CLR 


RO 


MOV 


*T20BFR,F.x 


MOV 


#T20EXP.ri2 


MOV 


#20. ,R3 


JSR 


PC.CKMSG2 


FORCERROR 472$ .NOTSSR 


BCS 


4801 


next.f;rrno 


ERRHRP 


ERRN0.T20CWP.MSGSTAT 



5551} 



FORCEXIT 555$ 

MOV TSTPTR.Rj 

CMP R3.0TBLEND 

BHIS 555$ 

JMP 100$ 



ENOSUB 



560$ j 



565$: 



TST 
BEQ 
JSR 

JSR 

BCC 
JMP 

EXIT 



FATFLG 

560$ 

PC.CKOROP 

PC.TSTLOOP 

565$ 

T18L00P 

TST 



j LOCAL 
» - 



T20MSK 



STORAGE FOR 



THIS 



TEST 



.BYTE 


*C<000> 


.BYTE 


tC<340> 


,BrTE 


*C<017> 


.BYTE 






SEQ 0213 



i SET WORDS 0-7 EXPD-RECV (NOT TESTING) 

iGET EXPECTED READ STATUS 

iGET RECV READ STATUS 

i SET EXPD WORD *6 - RECV TEMP 

iSET EXPD WORD 09 • RECV (NOT TESTED) 

,SET EXP PAR ERR -0 

I HIGH RECV ADDRESS FOR CKMSG2 

I LOU RECV ADDRESS FOR CKMSG2 

I EXPO ADDRESS 

iNUMBER OF BYTES TO COMPARE 

lEXPD EQUAL RECV? 

I BSD 

iBR IF YES 



I REPORT ERROR 



j LOOP ON ERROR, IF FLAG 



TRAP 

.WORD 

.WORD 

.WORD 

SET 

TRAP 



C$ERHRD 
921 

T20CWP 
MSGSTAT 

C$CLP1 



tSSO 

jRESTORE CURRENT TSTBLK POINTER 

tENO OT TSTBLK? 

iBR IF YES 

iDO ANOTHER TSTBLK PATTERN 



,//////////// END SUBTEST ////////// 

L10074: 

TRAP C$ESUB 

,ANY FATAL ERRORS ? 

jBRANCH IF NOT 

{TRY TO DROP THE UNIT 

lOO ITERATIONS? 

j BR IF NO 

jLOOP UNTIL ITERATIONS DONE 



i// //////// EXIT TEST 



////////// 

TRAP CJEXIT 
.WORD L10O73 



IN 
TO 



READ 

I 



STATUS 



iMASK OF UNTESiED BITS 

lUNTESTED BITS ARE SET 

I BYTE MASK 

jBYTE 1 MASK CPARERR.I9ESV2.IRESV1) 

iBtTE 2 (TIMER A, TIMER B, UNDEFINED* 1 jOO 

I MAKE IT EVEN 



HI 
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SEQ 0214 



5611 






561c? 065112 






5613 065112 


000000 




5614 065114 


000000 




5615 065116 


000000 




5616 065120 


oooooo 




5617 065122 


000000 




5618 065124 


oooooo 




5619 065126 


oooooo 




5620 065130 


oooooo 




5621 065132 






5622 065232 






5623 






5624 






5625 






5626 






5627 065232 


122 


145 


5628 065261 


127 


122 


5629 065316 


127 


122 


5630 065362 


127 


122 


5631 065427 


127 


122 


5632 065472 


127 


122 


5633 065536 


127 


122 


5634 065601 


127 


122 


5635 065*4 7 


122 


145 


5636 06575o 


122 


145 


5637 066057 


122 


145 


5638 






563« 






5640 






5641 






5642 






5643 066152 






5644 066152 






5645 066156 


012701 


066452 


5646 066162 


012702 


000120 


564 7 066166 


105021 




5648 066170 


005302 




5649 066172 


003375 




5650 066174 


000207 




5651 






5652 






5653 






56 54 






5655 066176 






5656 0661 76 


004 737 


066152 


5657 066c>02 


012700 


066610 


5658 066206 


112720 


000005 


5659 066212 


105010 




5660 066214 


CO020 7 




5661 






5662 






5665 






5664 






5665 






5666 







T20EXP; 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





,W0R0 





.WORD 





T20EXSTA: .BLKB 


64. 


T2OEXEN0: 





iBEGIN EXPECTED DATA BUFFER 
iMESSAGE TYPE 
j DATA FIELD LENGTH 
iRBPCR 
iXSTO 
iXSTJ 
jXST2 
jXSTJ 

tXST4 (ALWAYS PRESENT FOR WRITE SUB.) 
lEXPECTED READ STATUS ANO WRITE FIFO DATA 
j END EXPECTED DATA BUFFER 



jLOCAt TEXT MESSAGES FOR TEST 
t - 



1 TST20ID: 

1 T20SSR: 

1 T202SSR} 

1 T203SSR: 

1 T204SSR; 

I T205SSR: 

1 T206SSR: 

1 T20«SSR: 

1 T20SWP 

1 T20RSF 

I T20CWP 



.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



ASCIZ 'Read/Write Data Parity' 
WRITE CHARACTERISTICS Failed' 
WRITE SUBSYSTEM (Writa Mi»c) Failed' 
WRITE SUBSYSTEM (Reed Statue) Failad' 
WRITE SUBSYSTEM (Writa Nor) Failad' 
WRITE SUBSYSTEM (Writa FIFO) Failad' 
WRITE SUBSYSTEM (Raid FIFO) Failad' 
WRITE SUBSYSTEM (Writa Format) Failed' 
Raad Data Parity Error (PARERR) Foilad 
Raad Data Parity Error (PARERR) Failed 



to Set after Write Wrong Parity' 
to Clear after RESET FIFO' 



Read Data Parity Error (PARERR) occurred in Data Loopback' 



i CLEAR 

T20CLRBUF: 

SAVREG 

MOV 

MOV 

10*; CLRB 
DEC 
BGT 
RTS 



MESSAGE BUFFER 



aT206FR,Rl 

*T206ENO-T20BFR,R2 

(Rl)* 

R2 

101 
PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

jGET MESSAGE BUFFER ADDRESS 

j SIZE OF MESSAGE BUFFER IN BYTES 

iCLEAR A BYTE 

j DONE? 

I BR IF NO 

I RE TURN 



SETUP T20PK2 PACKET FOR READ STATUS 



T20SRD: 



»66 7 



JSR PC.T20CLRBUF 

MOV *I20OT2,R0 

MOVB *PW,RD5TATUS,(R0)» 

CLRB (RO) 

RTS PC 



SETUP T20PK2 PACKET FOR WRITE NPR 

INPUT: 

RO CONTAINS BSEL1 NPR DATA 



jCLEAR MESSAGE BUFFER 

iWRITE SUBSYSTEM DATA BUFFER 

{STORE READ STATUS COMMAND IN BSELO 

i CLEAR BSEL1 

iRETURN 
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11 



SEQ 0215 



b668 

5669 

5670 

5671 

56?? 

56 7 3 

56 74 

'",6/5 

5676 

5677 

5673 

5679 

56£9 

5631 

5682 

5683 

5684 

5685 

5686 

5687 

5688 

56G9 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 

5705 

5706 

570? 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

->717 

5718 

5719 

5720 

5721 

5 722 

5725 

5724 



066216 
066216 
066222 
066226 
06623? 
066234 



066236 
066236 
066242 
066246 
066252 
066254 



066256 
066256 
066262 
066266 
066272 
0662 76 
066300 
066302 
066304 
066306 
066^10 



066312 
066312 
066316 
066322 

066326 
066330 



004737 
012701 
112721 
110011 
000207 



004737 
0?2701 
112721 
110021 
000207 



004737 
012702 
112722 
110022 
005022 
112122 
005300 
003375 
000207 



004737 
012701 
112721 
110021 
000207 



066152 
066610 
000011 



066152 
066610 
000003 



066152 
066610 
000004 



06615*. 
06o610 
000007 



T20WNPRi 



JSR PC.T20CLRBUF 

MOV #T200T2,R1 

MOVB ♦PW.WNPR.CRl^ 

MOVB RO.(Rl) 

RT5 PC 



SETUP T20PK2 PACKET FOR READ FIFO 

INPUT: 

RO CONTAINS SEL2 BYTE COUNT 



I CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
1 STORE WRITE NPR IN BSELO 
, STORE NPR DATA IN BSEL1 
jRETURN 



T20RFIF; 




JSR 


PC.T20CLRBUF 


MOV 


♦T200T2.R1 


MCVB 


♦PW.RFIFO.CRD* 


MOVB 


RO,(Ri)* 


RTS 


PC 



I CLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BL^FER 
iSTORE READ F IK) IN BSELO 
j STORE BYTE COUNT IN BSEL1 
iRETURN 



SETUP T20PK2 PACKET FOR WRITE FIFO 



INPUT t 



RO CONTAINS BYTE COUNT 

Rl CONTAINS DATA PATTERN BLOCK ADDRESS 



T20WFIFs 




SAVREG 




JSR 


PC.T20CLRBUF 


MOV 


♦T200T2,R2 


MOVB 


♦PW.WFIF0.CR2)* 


MOVB 


R0,(R2)* 


CLR 


(R2)» 


10* s MOVB 


(R1)» # (R2)» 


DEC 


RO 


BGT 


10* 


RTS 


PC 



»SAVE R1-R5 UNTIL NEXT RETURN 

j CLEAR MESSAGE BUFFER 

jWRITF SUBSYSTEM DATA BUFFER 

jSTORE WRITE FIFO IN BSELO 

1 STORE BYTE COUNT IN BSEL1 

jCLEAR SEL2 (UNUSED) 

i STORE DATA PATTERN BYTE 

iDONE ALL BYTES? 

» BR IF NO 

iRETURN 



SETUP T20PK2 FOR WRTTE FORMAT TRANSPORT REGISTER 

INPUT: 

RO CONTAINS DRIVING DATA PATTERN 



T20WFMT: 




JSR 


PC.T20CLRBUF 


MOV 


OT200T2.R1 


MOVB 


♦PU.WFMT,(R1)* 


MOVB 


RO.(Rl)* 


RTS 


PC 



jCLEAR MESSAGE BUFFER 
jWRITE SUBSYSTEM DATA BUFFER 
» STORE WRITE FORMAT IN ' ~>ELO 
1 STORE DATA WORD IN BS-v.1 
iRETURN 



SETLP T20PK2 PACKET FOR WRITE MISC. 
RO CONTAINS WRITE MISC DATA 
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Jl 



SEQ 0216 



5725 066332 






5726 066332 


012701 


066610 


5727 066336 


112721 


000010 


5/23 066342 


110011 




5729 066344 


000207 




5730 






5731 






5732 






5733 066346 






5734 066346 


012700 


066610 


5735 066352 


112720 


OOOOIO 


5756 066356 


112710 


000200 


5737 066362 


000207 




5738 






5739 






5740 






5741 066364 






5742 066364 


012701 


065112 


5743 066370 


012700 


000120 


5744 066374 


105021 




5745 066376 


005300 




574f 066400 


00*375 




574 7 066402 


000207 




5748 






5749 






5750 






5751 






5752 066404 






5753 066404 


012702 


065112 


5754 066410 


012703 


066452 


5755 066414 


012700 


000010 


5756 066420 


012322 




5757 066422 


005300 




5758 066424 


003375 




5759 066426 


000207 




5 760 






5761 






5762 






5766 






5767 






5 768 






5769 0664 30 






57 70 066430 


100004 




5771 066432 


066440 




5772 066454 


000000 




5773 066436 


000012 




5774 






5775 066440 






57 76 066440 


066452 




5777 066442 


000000 




5778 066444 


000024 




5779 066446 


000000 




5 780 066450 


000007 




5781 






5782 






5783 






5784 







T20WMlSCi 

MOV 
MOVB 
MOVB 
RTS 

! SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENOED FEATURES SWITCH 

T20SEXT: 



*T200T2,R1 

♦PW.WMISC.(Rl)* 

R0.CR1) 

PC 



I WRITE SUBSYSTEM DATA BUFFER 

I5T0RE WRITE MISCELLANEOUS IN 6SEL0 

I STORE INVERT EXTENDED FEATURES IN BSEL1 

j RETURN 



MOV OT2OOT2.R0 

MOVB GPW.WMISC.CRO)* 

MOVB *MS.EXT # (R0) 

RTS PC 

j CLEAR EXPECTED DATA MESSAGE BUFFER 

T20CLEXP: 

MOV *T20EXP,R1 

MOV *T2OEXEND-T20EXP,R0 

101; CLRB CRD* 

DEC RO 

BG T 10$ 

RTS PC 



I WRITE SUBSYSTEM DATA BUFFER 

j STORE WRITE MISCELLANEOUS IN BSELO 

i STORE INVERT EXTENDED FEATURES IN BSEL1 

iRETURN 



iGET EXPD TDDRESS 
jGET EXPD FT?E 
jCLEAR A BUE 
I DONE? 
iBF, IF NO 
I RE TURN 



jSet WORDS 0-7 of expd message BUFFER - to recv since not testing 



{ GET EXPD 

i GET READ STATUS RECV BUFFER 

iSET WORDS 0-7 EXP-RECV 

jSET EXPD-RECV 

jDONE WORDS 0-7 WORDS? 

I BR IF NO 

j RETURN 



T20SETEXP: 




MOV 


♦T20EXP.R2 


MOV 


♦T206FR.R3 


MOV 


08. ,R0 


5$: MOV 


(R3)» t (R2)t 


DEC 


RO 


BGT 


5$ 


RTS 


PC 



t WRITE CHARACTERISTICS COMMAND PACKET 



T20PACKET: 

.WORD 
.WORD 
.WORD 

,wom> 



T20DATA: 



WORD 
.WORD 
.WORD 
.WORD 
.WORD 



100004 

T20DATA 



10. 



T206FR 



20 . 



7 



jCOMMANO PACKET FOR TEST 

jWRITE CHARACTERISTICS COMMAND, WITH 

I ADDRESS OF CHARACTERISTICS BLOCK 

jMINIMUM MESSAGE PACKET SIZE 

{CHARACTERISTICS DATA BLOCK 
i ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

jESS.ENB.EAI.ERI 

jEXTENDED FEATURES UNIT NO. 



ACK 



1 MESSAGE BUFFER FOR ALL TEST 1? COMMANDS 



Kl 
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SEQ 0217 



5785 
S786 
5787 
5788 
5789 
5790 
5791 
5792 
5793 
5794 
5795 
5796 
5797 
5798 
5800 
5802 
5803 
5804 
5805 
5806 
5807 
5808 
5809 
5810 
5811 
5812 
5813 
5814 
5815 



5816 
5817 
5818 
5819 
5820 
5821 
5822 
5823 
5824 
5825 
5326 
5827 
5828 
5829 
5830 
5831 
5832 
5833 
5834 
5835 
5836 
58 37 
5838 
5839 
5840 
5841 



066452 
066452 
0664 54 
066456 
066460 
066462 
066464 
066466 
0664 70 
066- 72 
066572 



066600 
066600 
066602 
066604 
066606 

066610 
066610 
066611 
06661? 
066614 



066714 
066714 
066714 



000000 
OOOOOO 
000000 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



066600 

100006 
066610 
OOOOOO 
000012 



000 

000 

OOOOOO 



104401 



T20BFR} 




.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





T206FSTA: .BLKB 


64. 


T20BEN0; 





jBEGIN MESSAGE BUFFER 

I MESSAGE TYPE 

jDAIA FIELD LENGTH 

iRBPCR 

iXSTO 

jXSTl 

iXST2 

|XST3 

|XST4 

j READ 

j END 



(ALWAYS PRESENT FOR WRITE SUBSYSTEM 
STATUS AND WRITE FIFO BUFFER 
OF MESSAGE BUFFER 



j WRITE SUBSYSTEM READ STATUS COMMAND PACKET 



J 



<,*10>ti77770 



T20PK2; 








.WORD 


P.WRTSUB5P.ACK 




.WORD 


T20DT2 




.WORD 







.WORD 


10. 


T20DT2: 








.BYTE 







.BYTE 







.WORD 







.BLKB 


64, 



iWRITE SUBSYSTEM WITH ACK 
j LOW ADDRESS Of- DATA BLOCK 
»HIGH ADDRESS OF DATA BLOCK 
i MINIMUM MESSAGE PACKET SIZE 

i DATA BLOCK 

iBSELO 

:BSEL1 

|SEL2 

(WRITE FIFO DATA OUTPUT BUFFER 



ENDTST 



L10073: 



.SBTTL TEST 10; MANUAL INTERVENTION 



TRAP 



C$ETST 



THE MANUAL INTERVENTION TEST IS A STANOALONE ROUTINE (NOT REPLLY A "TEST") 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THA^ CANNOT BE MANIPULATED BY THE PROGRAM ALONE. WHEN 
THIS ROUTINE IS STARTED, IT FIRST PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN *V»ITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 
THE ONLY WAYS TO EXIT THIS ROUTINE ANO RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 7, 
SELECTION COOES ANO SUBROUTINES AREs 



CODE ROUTINE 

HELP. PRINTS THIS MENU. 

1 TURN ON ALL M7196 LED INDICATORS 

2 TURN OFF ALL M7196 LED INDICATORS 

3 OFFLINE /ONLINE ATTENTION TEST 

4 WRITE-PROTECT TEST 

5 INITIATE TRANSPORT SERVO EXERCISER 

6 PRINT EXTENDED TRANSPORT STATUS 

7 EXIT (RETURN TO SUPERVISOR) 



EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 



LI 
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TEST 10: MANUAL INTERVENTION 

5842 
584 3 
5844 
5845 
5846 
584 7 
5848 
5849 
5650 
5851 
5852 
5853 
5854 
5855 
5856 
5857 
5858 
5959 
5860 
5861 
5862 
5863 
5864 
5865 
5866 
5867 
5868 
5869 
5870 
5671 
58 72 
5873 
5874 
5375 
"876 
377 
5878 
5879 
5880 
5881 
5882 
5883 
5884 
5885 
5886 
583 7 
5888 
5889 
5890 
5891 
5892 
5893 
5894 
5895 
5896 
589" 
5898 
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SEQ 0218 



PRINTS OUT THE MENU ON THE CONSOLE TERMINAL, 



CAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE 
TO BE TLLUMINATED. AFTER INITIATING THIS ROUTINE, THE OPERATOR 
SHOULD v^-CRVE THE LED' S AND VERIFY THAT THEY ARE INDEED ALL LIT, 
THIS ROUTIi%c FIRST USES THE WRITE SUBSYSTEM MEMORY COMMAND TO 
SET THE FORCE ^RONG PARITY FLIP-FLOP, WHICH SERVES TO DRIVE THE 
"PROCESSOR NOT OK" LEO. THEN IT ENTERS A LOOP THAT CONTINUALLY 
WRITES THE LOW BYTE OF TSDB AND READS THE TSSR. THESE LATTER TWO 
OPERATIONS WILL CAUSE THE "NOT SSR" ANO "DRIVING BUS" LED'S TO 
GLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES BUT SHOULD APPEAR 
REASONABLY VISIBLE. 



INITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
EXTINGUISH 



THIS ROUTINE INITIALIZES THE CONTROLLER, ISSUES A 
WRITE CHARACTERISTICS COMMANO TO ENABLE ATTENTION INTERRUPTS, 
ISSUES A MESSAGE BUFFER RELEASE COMMAND. PRINTS A MESSAGE ON THE 
CONSOLE TERMINAL INSTRUCTING THE OPERATOR TO TOGGLE THE ON-LINE 
SWITCH ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION INTERRUPT. 
EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE TO OFF-LINE OR 
VICE -VERSA, AN ATTENTION INTERRUPT SHOULD BE GENERATED. THE PROGRAM 
WILL REPORT THE INTERRUPT AND THE CURRENT STATE OF THE TRANSPORT. 
THE OPERATOR SHOULD VERIFY THAT THE REPORTED STATE MATCHES THE 
STATE INDICATED BY THE LED ON THE FRONT PANEL OF THE TRANSPORT. 
IN ADOITION. WHEN THE TRANSPORT IS PLACED OFF-LINE, THE PROGRAM 
ISSUES A SEQUENCE OF TAPE-MOTION COMMANDS (READ, WRITE, POSITION, ETC 
AND VERIFIES THAT, FOR EACH COMMANO, FUNCTION REJECT TERMINATION 
RESULTS, ALONG WITH THE NON -EXECUTABLE FUNCTION (NEF) ERROR BIT BEING 
SET. 

THIS ROUTINE INSTRUCTS THE OPERATOR TO MOUNT A SCRATCH 
TAPE REEL THAT DOES NOT HAVE A WRITE -ENABLE RING INSTALLED, THEN 
WAITS FOR THE OPERATOR TO RESPONO THAT THIS HAS BEEN ACCOMPLISHED. 
UPON THE RESPONSE, THE PROGRAM VERIFIES THAT THE TRANSPORT SHOWS 
A WRITE-PROTECTED STATUS, THEN ATTEMPTS TO WRITE DATA ON THE 
TAPE ANO EXPECTS THE APPROPRIATE ERROR TERMINATION INDICATING THAT 
THE WRITE FUNCTION COULD NOT BE PERFORMED BECAUSE THE REEL IS 
WRITE -PROTT^TED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
AN ERROR i REPORTED. 



INSTRUCTS THE OPERATOR TO PLACE THE TAPE TRANSPORTS ) 
ON-LINE (IF ANY ARE OFF-LINE) THEN ATTEMPTS TO PERFORM AN EXTENOED 
STATUS READOUT. FOR EACH TRANSPORT EQUIPPED WITH THIS FEATURE, 
THE PROGRAM FORMATS ANO PRINTS OUT THL RESULTING STATUS. IF THE 
TRANSPORT IS NOT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
SUCH IS ISSUED. 



Ml 
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5399 






t 






5900 






/ 






5901 






I 






5<X)2 






I 






5*03 C66716 








BGNTSi* 




066716 












5908 066716 








RFLAGS 


RO 


066716 


104421 










5909 066720 


001403 






BEQ 


21$ 


5910 066722 


012700 


072300 




MOV 


4T38NE.R0 


5911 066726 


000402 






BR 


3$ 


5912 066730 






21$: 






591J 066730 


012700 


073415 




MOV 


•T36aD.R0 


5914 066734 


004737 


016510 


3$: 


JSR 


PC.TSTSETUP 


5915 066740 


004737 


020500 




JSR 


PC.CHKMAN 


5916 066744 


103402 






BCS 


22$ 


5917 066746 


000137 


071500 




JMP 


64$ 


5918 066752 






22% : 






5922 066752 


005037 


002222 


2$: 


CLR 


FATFLG 


5923 066756 


012737 


176750 071512 


MOV 


*65000.,T38DLY 


5924 066764 


004737 


015774 


5$: 


JSR 


PC.SOFINIT 


5925 066770 


103427 






BCS 


23$ 


5926 0667 72 


010001 






MOV 


R0 4 R1 


5927 066774 


032701 


000200 




BIT 


OSSR.Rl 


5928 067000 


001023 






BNE 


23$ 


5929 067002 








DELAY 


250 


067002 


012727 


000250 








067006 


000000 










067010 


013727 


002116 








067014 


000000 










067016 


005367 


177772 








067022 


001375 










067024 


005367 


177756 








067030 


001367 










5930 067032 


005337 


071512 




DEC 


T 38DL Y 


5931 067036 


001352 






BN€ 


5$ 


5932 067040 








ERRDF 


ERRNO.SFIERR.S 


067040 


104455 










067042 


001751 










067044 


003652 










067046 


012034 










5933 067050 


012700 


073442 


23$: 


MOV 


♦MIMENU.RO 


5934 067054 


012701 


000006 




MOV 


*6,R1 


5935 067060 


00473, 


020256 




Jf>R 


PC.GETSEL 


5936 067064 


010004 






MOV 


R0.R4 


5937 067066 


006304 






ASL 


R4 


5938 067070 


000174 


067074 




JMP 


86$(R4) 


5939 067074 


066752 




6$: 


.W0«D 


2$ 


5940 067076 


067112 






.WORD 


10$ 


5941 067100 


067374 






.WORD 


15$ 


5942 067102 


067626 






.WORD 


20$ 


5943 067104 


CV0262 






.WORD 


25$ 


5944 067106 


071216 






.WORD 


35$ 


5945 067110 


071474 






.WORD 


63$ 


5946 067112 






10$: 


PRINTF 


0T36MS2 


067112 


012746 


073511 








067116 


012746 


000001 









SEQ 0219 



jGET OPERATOR 



T10: 
FLAGS 



jBR. IF OK TO RUN 
j "TEST NOT EXECUTED" 
j JUMP IF NOT FIRST TEST 



TRAP 



C$RFLA 



I TEST ID MESSAGE 

I DO THE COMMON SETUP 

j IS MANUAL INTERVENTION ALLOWED? 

jBR, IF MANUAL INTER ALLOWED 

j JUMP IF NOT ALLOWED 

i CLEAR THE FATAL ERROR FLAG 

} SET UP DELAY COUNTER 

iDO A SOFT INIT 

j BRANCH IF OK 

{CONTENTS OF TSSR REGISTER 

iCHECK FOR TSSR SET 

jKEEP GOING IF NOT SET 

tCALL DELAY ROUTINE 



j BUMP COUNTER DOWN 
}BR, IF MORE TIME LEFT 
jREPORT FATAL ERROR 

MENU OF MANUAL INTERVENTIONS 

MAXIMUM ALLOWED SELECTION 

GO GET THE OPERATORS SELECTION 

GET NUMBER FROM ROUTINE 

CONVERT TO WORD OhFSET 

JUMP TO PROPER LOOP 

RETYPE THE MENU 

1 TURN ON LED'S 

2 TURN OFF LED'S 

3 ONLINE ATTENTION 

4 WRITE PROTECT 

5 EXTENOED TRANSPORT STATUS 

6 LEAVE THE TEST 



MOV 


0250, (PC)* 


.WORD 





MOV 


LIDLY.CPO* 


.WORD 





UEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


TRAP 


C$ERDF 


.WORD 


1001 


.WORD 


SFIERR 


.WORD 


SFIMSG 



TELL OPERATOR TO 



CNTRL-C FOR 
MOV 
MOV 



EXIT 

OT38MS2. -CSP) 
*1,-<SP> 



Nl 
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SEQ 0220 



5947 
5948 
5949 
5953 
5954 



5955 
5956 
5957 
5958 
5959 
5963 
5964 



5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
5973 
5974 
5975 
5979 



5980 
5981 



5982 
1^983 
5.34 
5985 
5986 
598 7 
5988 
5989 
5990 
5901 
5992 



067122 
067124 
06 7126 
067132 
067136 
067142 
067144 
067146 
067146 
067150 
067152 
067154 
067156 

067164 
067170 
067174 
06/176 
067200 
067200 
067202 
067204 
067206 
067210 
067210 
067216 
067224 



067230 
067234 
067240 
067242 
067244 
067244 
067246 
067250 
067252 
067254 
067254 
067256 
067256 
067262 
067264 
0672/0 
067276 
0673C0 
067304 
067312 
0t,73l6 
067322 
067326 
06"*332 
067336 
06 73 5'^ 
06734 > 



010600 
104417 
062706 
004737 
004737 
103405 
010001 

104455 
001752 
003652 
012034 
013737 

012704 
004737 
103405 
010001 

104456 
001753 
005056 
012034 

112737 
112737 
012704 



010465 
004737 
103405 
0100C1 

104455 
001754 
072716 
012046 

104406 

012700 
104441 
005037 

C32737 
001005 
005237 
052737 
012701 
011137 
012721 
011137 
012/11 

<H2 700 
x0444l 



000004 
074046 
015774 



002202 072240 100$: 

072220 
010662 



JSR 
JSR 
BCS 
MOV 
ERRUF 



MOV 

MOV 
JSR 
BCS 
MUV 
ERRHRO 



PC.T38REST 

PC.SQFINIT 

100$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



UNITN.T38DSW 

0T38PK2.R4 

PC.WRTCHR 

110> 

R0.R1 

ERRNO.WRTMSG.SFIMSG 



MOV SP.RO 
TRAP C$PNTF 
ADD #4,SP 

{SET P KIT TO INITIAL VALUES 

j DO SC, . CNIT OF CONTROLLER 

|BR IF SOFT INIT - OK 

{SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 1002 
.WORD SFIERR 
.WORD SFIMSG 

j SET UNIT NUMBER 

j SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

j BR. IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

j WRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 
.WORD 1003 
.WORD WRTMSG 
.WORD SFIMSG 



000000 071531 
000011 071530 
071520 



000000 
016336 



110$: 



MOVB 
MOVB 
MOV 



OO.T38BS1 

*11,T38BS0 

OT38PACKET.R4 



iCLEAR BIT 04 

j WRITE MISC COMMAND 

j SET UP NEW WRT. SUBSYS MEM. 



COMMAND 



{NOTE; THIS COMMANO TURNS ON THE PROCESSOR FAIL LED 



150$ 



MOV 
JSR 
BCS 
MOV 
ERRDF 



CKLOOP 



R4,TS0B(R5) 

PC.CHKTSSR 

150$ 

R0.R1 

ERRN0.T38SSR.PKTSSR 



l SET THE PACKET ADDRESS 
;WAIT FOR SSR TO SET 
jBR IF CARRY SET CGOOD RETURN) 
{SAVE CONTENTS OF TSSR 
{DEVICE FATAL SSR FAILED TO SET 

TRA^ 



000300 

071504 
000100 

071504 
000100 
000060 
071506 
071000 
071510 
000300 

000000 



SETPRI 0PRI06 



{LOOP ON ERROR, IF FLAG 
{RAISE THE PRIORITY 



.WORD 

.WORD 

.WORD 

SET 

TRAP 



177560 



177560 



701$ 



CLR 


TTI0N2 


BIT 


O1OO.0OTYICSR 


BNE 


701$ 


INC 


TTI0N2 


BIS 


0100.8«T T ICSR 


HOV 


0TTIVECR1 


MOV 


(RD.TVSAV2 


MOV 


0590$, (Rl *•• 


MOV 


(RD.TPSAV2 


MOV 


*PRI06.(R1) 


SETPRI 


0PMOO 



MOV 
TRAP 
ENABLED 



C$ERDF 
1004 
T38SSR 
PKTSSR 

C$CLP1 

^PR I06.RO 
C$SPRI 



{ASSUME INTERRUPTS ARE 

j ARE TTI INTERRUPTS ON 

{BRANCH IF YES 

{FLAG SET IF INTERRUPTS OFF 

{ENABLE INTERRLPTS 

j START Of* TTI VECTORS 

{SAVE THE CUPRENf TTI VECTOR 

{SET NEW INTERRUPT ROUTINE 

{SAVE "iHE VECTOR PRIORITr 

.•USE PRIORI ft SIX 

{LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 



OPRIOO.RO 
C$SPRI 



B2 
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SEQ 0221 



5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 



6003 
6004 
6006 
6009 



6010 
6011 
6012 
6013 
6014 
6018 
6019 



6020 
6021 
6022 
6023 
6024 
6025 
6026 
6027 
6026 
6029 
6030 
6031 
6032 
6036 



6037 
6038 



067344 
067350 
067352 
067356 
067362 
067366 
067370 
067372 

067374 
067374 
067400 
067404 
067406 
067410 
067414 
067420 
067422 
067424 
067424 
067426 
067430 
067432 
067434 
067434 
067442 
067446 
067452 
067454 
067456 
067456 
067460 
067462 
067464 



067466 
067466 
067474 
067502 
067506 
067512 
067516 
067520 
067522 
067522 
067524 
067526 
067530 
067532 
067532 
067534 
067534 
067540 



012701 
000240 
012702 
110165 
016500 
005302 
001372 
000766 



012746 
012746 
010600 
104417 
062706 
004737 
103405 
010001 

104455 
001755 
003652 
012034 

013737 
012704 
004737 
103405 
010001 

104456 
001756 
005056 
012034 



177777 

001750 
000000 
000002 





MOV 


0-1, Rl 


12*! 


NOP 






MOV 


♦1000. ,R2 


14$ ! 


MOVB 


R1.TSDBCR5) 




MOV 


TSSR(R5),R0 




DEC 


R2 




BNE 


14$ 




BR 


12$ 


15$: 


PRINTF 


0T38MS2 



073311 
000001 



000004 
015774 



JSR 
BCS 
MOV 
ERRDF 



PC.SOFINIT 

200$ 

R0,R1 

ERRNO.SFIERR, SFIMSG 



002202 072240 

072220 

010662 



200$ { 



iDATA TO WRITE TO TSDB 
» ALLOW OPERATOR TO TYPE t£ 
I SET -UP INNER LOOP 
iWRITE DATA TO TSDB 
I RE AD TSSR 
REDUCE INNER COUNT 
lLOOP TILL EXPIRES 
I LOOP UNTIL HALTED 

I TYPE CNTL C TO EXIT 

MOV 

MOV 

MOV 

TRAP 

ADO 

jDO SOFT INIT OF CONTROLLER 

iBR IF SOFT INIT • OK 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP 
.WORD 
.WORO 
.WORD 



0T38MS2.-CSP) 

♦1,-CSP) 

SP,RO 

C$PNTF 

04, SP 



C$EROF 

1005 

SFIERR 

SFIMSG 



MOV 
MOV 
JSR 
BCS 

MOV 
ERRMRD 



UNITN.T38DSW 

♦T36PK2.R4 

PC.WRTCHR 

210$ 

R0,R1 

ERRNO.WRTMSG, SFIMSG 



iSET UNIT NUMBER 

l SUBROUTINE NEEDS PACKET ADDRESS 

i ISSUE WRITE CHARACTERISTICS 

I BR, IF COMMAND ISSUED OK 

I SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP C$ERHRD 

.WORD 1006 
.WORD WRTMSG 
.WORD SFIMSG 



112737 000000 071531 

112737 000025 071530 

012704 071520 

010465 000000 

004737 016336 
103405 
010001 

104455 
001757 
072716 
012046 

104406 

012 700 000300 
104441 



THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 

******************************************************* ********** 
210${ 



250$ 



MOVB 

MOVB 

MOV 

MOV 

JSR 

BCS 

MOV 

ERRDF 



CKLOOP 
SETPR1 



♦O.T36BS1 
025.T3B8S0 
#T36PACKET,R4 
R4.TSD6CR5) 

PC.CHKTSSR 

250$ 

RO.Ri 

ERRN0,T38SSR,PKTSSR 



0PRI06 



j CLEAR BIT #4 

I STOP DRIVE TEST 22 

I SET UP NEW WRT. SU8SYS MEM. COMMANO 

I SET THE PACKET ADORESS 

iWAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOO RETURN) 

iSAVE CONTENTS OF TSSR 

iDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 

.WORD 10O7 
.WORD T38SSP 
.WORD PKTSSR 

jLOOP ON ERROR, IF FLAG SET 

TRAP CICLP1 

jRAISE THE PRIORITY 

MOV 0PRT06.RQ 

TRAP ClSPRl 
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6039 067542 


005037 


071504 


6040 067546 


032737 


000100 177560 


6041 067554 


001005 




6042 067556 


005237 


071504 


6043 067562 


052737 


000100 177560 


6044 067570 


012701 


000060 


6045 067574 


011137 


071506 


6046 067600 


012721 


071000 


6047 067604 


011137 


071510 


6048 067610 


012711 


000300 


6049 067614 






067614 


012700 


000000 


067620 


104441 




6050 067622 


000240 




6051 067624 


000776 




6052 






6053 






6054 067626 






067626 


012746 


073311 


067632 


012746 


000001 


067636 


010600 




067640 


104417 




067642 


062706 


000004 


6055 067646 






067646 


012700 


000000 


067652 


104441 




6056 067654 


005037 


002224 


6057 067660 


004737 


015774 


6058 067664 


103405 




6062 067666 


010001 




6063 067670 






067670 


104455 




067672 


001760 




067674 


003652 




067676 


012034 




6064 067700 






6065 067700 


013737 


002202 072240 


6066 067706 


012737 


000040 072236 


6067 067714 


012704 


072220 


6066 067720 


004737 


010662 


6069 067724 


103405 




6073 067726 


010001 




6074 067730 






067730 


104456 




067732 


001761 




067734 


005056 




067736 


012034 




6075 067740 






6076 067740 


012704 


072250 


6077 067744 


010465 


000000 


6076 067750 


004737 


016250 


6079 067754 


005002 




6080 067756 


016501 


000002 


6081 067762 


032701 


000100 


6082 06 7 766 


001402 




6083 067770 


052702 


000100 


6084 067774 


052702 


000200 



710$s 



2601 1 



20$: 
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CLR 


TTI0N2 


BIT 


*100,B*TTICSR 


BNE 


710$ 


INC 


TTI0N2 


BIS 


•100,0*TTICSR 


MOV 


♦TTIVEC.R1 


MOV 


(R1),TVSAV2 


MOV 


•5901. CRD* 


MOV 


(RD.TPSAV2 


MOV 


•PRI06»(R1) 


SETPRI 


OPRIOO 


NOP 




BR 


260$ 


PRINTF 


0T38MS2 



SEQ 0222 



300$ { 



310$; 



I ASSUME INTERRUPTS ARE ENABLED 

I ARE TTI INTERRUPTS ON ? 

iBRANCH IF YES 

iFLAG SET IF INTERRUPTS OFF 

lENABLE INTERRUPTS 

, START OF TTI VECTORS 

j SAVE THE CURRENT TTI VECTOR 

I SET NEW INTERRUPT ROUTINE 

I SAVE THE VECTOR PRIORITY 

lUSE PRIORITY SIX 

lLOWER INTERRUPT BR LEVEL 

MOV 
TRAP 

l ALLOW CNTL C 

jLOOP UNTIL STOPPED 



I TELL' EM WHAT 10 TYPE 



•PRICO.RO 
C$SPRI 







MOV 


•T38MS2.-CSP) 






MOV 


♦l.-(SP) 






MOV 


SP.RO 






TRAP 


C$PNTF 






ADO 


•4.5P 


SETPRI 


•PRIOO 


lLOWER PRIORITY TO ALLOW INTERRUPTS 






MOV 


•PRIOO.RO 






TRAP 


C$SPRI 


CLR 


INTRECV 


iCLEAR INTERRUPT RECEIVED FLAG 




JSR 


PC.SOFINIT 


lOO SOFT INIT OF CONTROLLER 




BCS 


300$ 


iBR IF SOFT INIT - OK 




MOV 


R0,R1 


iSAVE CONTENTS OF TSSR 




ERRDF 


ERRNO.SFIERR, SFIMSG 


iDEVICE FATAL ERROR DURING INIT 








TRAP 


C$ERDF 






.WORD 


1008 






.WORD 


SFIERR 






.WORD 


SFIMSG 


MOV 


UNITN.T38DSW 


j SET UNIT NUMBER IN PACKET 




MOV 


♦6IT5.T38EAI 


lENABLE ATTENTION INTERRUPTS 




MOV 


♦T36PK2.R4 


I SUBROUTINE NEEDS PACKET ADDRESS 


JSR 


PC.WRTCHR 


1 ISSUE WRITE CHARACTERISTICS 




BCS 


310$ 


iBR. IF COMMAND ISSUED OK 




MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO.WRTNSG, SFIMSG 


iWRITE CHARACTERISTIC FAILED 





TRAP 
.WORD 
.WORD 
.WORD 



C$ERHRD 
1009 
WRTMSG 
SFIMSG 



.120$ t 



MOV 


•T38PK3.R4 


MOV 


R4,TS0e(R5) 


JSR 


PC.WAITF 


CLR 


R2 


MOV 


TSSR(R5),R1 


BIT 


•0FL.R1 


BEQ 


320$ 


BIS 


•0FL.R2 


BIS 


*5SR 4 R2 



l SET UP NEW PACKET FOR MESS BUF REL 

I MESSAGE BUFFER RELEASE ,ACK .CVC-1 CMD 

iWAIT FOR SSR TO SET 

I MAKE SURE ALL IS CLEAR 

iGET TSSR STATUS 

iIS OFL SET 

iBR, IF OFL IS NOT SET 

iSET OFL IN EXPECTED 

jSET UP EXPECTED 



D2 
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6085 070000 


020201 




6086 070002 


001404 




6090 070004 






070004 


104456 




070006 


001762 




070010 


073126 




070012 


012046 




6091 070014 






070014 


104406 




6092 070016 






070016 


012746 


073216 


070022 


012746 


000001 


070026 


010600 




070030 


104417 




070032 


062706 


000004 


6093 070036 






070036 


012746 


073311 


070042 


012746 


000001 


070046 


010600 




070050 


104417 




070052 


062706 


000004 


6094 070056 






070056 


012700 


000300 


070062 


104441 




6095 070064 


005037 


071504 


6096 070070 


032737 


000100 177560 


6097 070076 


001005 




6098 070100 


005237 


071504 


6099 070104 


052737 


000100 177560 


6100 070112 


012701 


000060 


6101 070116 


011137 


071506 


6102 070122 


012721 


071000 


6103 070126 


011137 


071510 


6104 070132 


012711 


000300 


6105 070136 






070136 


012700 


000000 


070142 


104441 




6106 070144 


000240 




6107 070146 


005737 


002224 


6108 07015? 


001001 




6109 070154 


000773 




6110 070156 






070156 


012746 


073006 


070162 


012746 


000001 


070166 


010600 




070170 


104417 




070172 


062706 


000004 


6111 070176 


016501 


000002 


6112 070202 


J32701 


000100 


6113 070206 


001011 




6114 070210 






070210 


012746 


07 3036 


070214 


012746 


OOOOOl 


070220 


010600 




070222 


104417 




70224 


062706 


000004 


611b 070230 


000410 





350$; 



CMP R2.R1 

BEQ 3501 

ERRHRD ERRN0,T38SST,PKTSSR 



CKLOOP 

PRINTF 0T38MS1 



PRINTF 0T38MS2 



SETPRI 0PRI06 



720$: 



360$: 



370*1 



CLR 


TTI0N2 


BIT 


0100,QOTTICSR 


BNE 


720$ 


INC 


TTI0N2 


BIS 


0100.&OTTICSR 


MOV 


0TTIVEC.R1 


MOV 


(R1),TVSAV2 


MOV 


♦590$. (Rl)* 


MOV 


(R1),TPSAV2 


MOV 


0PRI06,(R1) 


SETPRI 


OPRIOO 


NOP 




TST 


INTRECV 


BNt 


370$ 


BR 


360$ 


PRINTF 


OT38INT 



MOV 


TSSR(R5),R1 


BIT 


00FL.R1 


BNE 


380$ 


PRINTF 


OT380NL 



|IS EVERYTHING OK 

jBR, IF ALL IS WELL 

jDEVICE FATAL SSR FAILED TO SET 

TRAP 
♦ WORD 
.WORD 
.WORD 

I LOOP ON ERROR, IF FLAG SET 

TRAP 

jTELL OPERATOR TO TOGGLE SWITCH 

MOV 
MOV 
MOV 
TRAP 
ADD 

j TELL OPERATOR TO DO tC TO EXIT 

MOV 
MOV 
MOV 
TRAP 
ADD 



iRAISE THE PRIORITY 



MOV 

TRAP 
ENABLED 
? 



OR 



390$ 



I ASSUME INTERRUPTS ARE 

jARE TTI INTERRUPTS ON 

j BRANCH IF YES 

iFLAG SET IF INTERRUPTS OFF 

I ENABLE INTERRUPTS 

iSTART OF TTI VECTORS 

I SAVE THE CURRENT TTI VECTOR 

j SET NEW INTERRUPT ROUTINE 

iSAVE THE VECTOR PRIORITY 

lUSE PRIORITY SIX 

j LOWER INTERRUPT BR LEVEL 

MOV 
TRAP 
l ALLOW CONTROL C 
I DID AN INTERRUPT OCCUR ? 
jBRANCH IF YES 

j WAIT SOME MORE FOR INTERRUPT 
i "INTERRUPT RECEIVED" 

MOV 
MOV 
MOV 
TRAP 
ADD 
jREAD TSSR STATUS 
jCHECK THE OFF-LINE BIT 
iBR, IF DRIVE IS OFF-LINE 
I "DRIVE IS NOW ON-LINE'* 

MOV 
MOV 
MOV 
TRAP 
ADD 
j ALMOST DONE 



SEQ 0223 



C$ERHRD 
1010 
T38SST 
PKTSSR 

CICLP1 

OT38MS1.-CSP) 

01,-CSP) 

SP.RO 

C$PNTF 

04, SP 

OT38MS2.-CSP) 

♦1,-CSP) 

SP.RO 

C$PNTF 

04, SP 

OPRIO6.R0 

C$SPRI 



OPRIOO, RO 
C$SPRI 



OT38INT.-CSP) 
•l.-CSP) 

SP.RO 
CiPNTF 
04, SP 



0T380NL»-(SP) 
01, (SP) 

SP.RO 
CiPNTF 

04, SP 
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6116 070232 






070232 


012746 


073072 


070236 


012746 


000001 


070242 


010600 




070244 


104417 




070246 


062706 


000004 


6117 070252 


005037 


002224 


6118 070256 


000137 


067700 


6119 070262 






070262 


104443 




070264 


000404 




070266 


074044 




070270 


000120 




070272 


073355 




070274 


177777 




070276 






6120 070276 






070276 


103371 




6121 070300 


005737 


074044 


6122 070304 


001002 




6123 070306 


000137 


066752 


6124 070312 






6125 070312 


004737 


015774 


6126 070316 


103405 




6130 070320 


010001 




6131 070322 






070322 


104455 




070324 


001763 




070326 


003652 




070330 


012034 




6132 070332 






070332 


104406 




6133 070334 


013737 


002202 072240 


6134 070342 


012704 


072220 


6135 070346 


004737 


010662 


6136 070352 


103405 




6140 070354 


010001 




6141 070356 






070356 


104456 




070360 


001764 




070362 


005056 




070364 


012034 




6142 070366 






070366 


104406 




6143 070370 


013701 


071544 


6144 070374 


010102 




6145 070376 


052702 


000004 


6146 070402 


020102 




6147 070404 


001406 




6151 070406 






070406 


104456 




070410 


001765 




070412 


072534 




070414 


015474 




6152 070416 


005237 


002222 


0153 070422 






070422 


104406 















SEQ 0224 


380$: 


PRINTF 


OT380FL 


j "DRIVE IS NOW OFF-LINE 


ii 

MOV 

MOV 

MOV 

TRAP 

ADD 


4T380FL,-(SP) 

*i,-(SP) 

SP,R0 

C$PNTF 

04, SP 


390$: 


CLR 


INTRECV 


j CLEAR INTERRUPT FLAG 








JMP 


3001 


j TRY AGAIN 






25*: 


GMANXL 


T38MSG,T38DAY # ~1,N0 


IWAIT FOR OPERATOR TO MuUNT TAPE 










TRAP 


C$GMAN 










BR 


10000$ 










.WORD 


T38DAT 










.WORD 


T$COOE 










.WORD 


T38MSG 










.WORD 


-1 








10000$: 








8NC0MPLETE 251 


I RETRY IF ERROR 














BCC 


25$ 




TST 


T38DAT 


jOIO OPERATOR SAY 'YES* 


? 






BNE 


27$ 


I BRANCH IF YES 








JMP 


2$ 


jRETURN TO MAIN MENU 







27$: 



JSR 
BCS 
MOV 
ERRDF 



400$: CKLOOP 



PC.SOFINIT 

400$ 

RO.Rl 

ERRNO.SFIERR, SFIMSG 



MOV 


UNITN.T38DSW 


MOV 


♦T38PK2,R4 


JSR 


PC.WRTCHR 


BCS 


410$ 


MOV 


R0,R1 


ERRHRD 


ERRNO.WRTMSG, SFIMSG 



410$: 



CKLOOP 



j DO SOFT INIT OF CONTROLLER 

»BR IF SOFT INIT - OK 

» SAVE CONTENTS OF TSSR 

j DEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 
.WORD 1011 
.WORD SFIERR 
.WORD SFIMSG 

I LOOP IF SELECTED 

TRAP C$CLP1 

iSET UNIT NUMBER 

i SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

I BR. IF COMMAND ISSUED OK 

i SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



j LOOP IF SELECTED 



TRAP 



C$ERHRD 
1012 
WRTMSG 
SFIMSG 

C$CLP1 



MOV 


T38BFR*6,R1 


MOV 


R1.R2 


BIS 


♦BIT2.R2 


CMP 


R1.R2 


BEQ 


430$ 


ERRHRD 


ERRN0.T38WRL.EXPREC 



430$: 



INC 
CKLOOP 



FATFLG 



iFICK UP XSTO CONTENTS 
iSET UP EXPECTED 
iSET UP THE WRITE LOCKED BIT 
I ARE THEY CORRECT 
I BR, IF ALL IS WELL (OK) 
j "WRITE LOCKED BIT IS NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



j SET FATAL FLAG 
I LOOP IF SELECTED 



TRAP 



ETC." 

C$ERHRD 
1013 
T38WRL 
EXPREC 



C$0. PI 



F2 
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072272 435$: 



SEQ 0225 



6154 


070424 


005737 


002222 


6155 


070430 


001402 




6156 


070432 


000137 


066752 


6157 


070436 


017737 


112462 


6158 


070444 


012704 


072270 


6159 


070450 


010465 


000000 


6160 


070454 


004737 


016250 


6161 


070460 


016501 


000002 


6162 


070464 


012702 


100206 


6163 


070470 


020102 




6164 


070472 


001404 




6168 


070474 








070474 


104456 






070476 


001766 






070500 


072450 






070502 


012046 




6169 


070504 








070504 


104406 




6170 


070506 


013701 


071544 


6171 


070512 


010102 




6172 


070514 


052702 


004000 


6173 


070520 


020102 




6174 


070522 


001404 




6178 


070524 








070524 


104456 






070526 


001767 






070530 


072575 






070532 


015474 




6179 


070534 








070534 


104406 




6180 


070536 


000137 


066752 


6181 








6182 








6183 








6184 








6185 


070542 






6186 


070542 








070542 


012746 


072355 




070546 


012746 


000001 




070552 


010600 






070554 


104414 






070556 


062706 


000004 


6187 


070562 


004737 


074046 


6188 


070566 


004737 


015774 


6189 


070572 


103405 




6193 


070574 


010001 




6194 


070576 








070576 


104455 






070600 


001770 






070602 


003652 






070604 


012034 




6195 


070606 


013737 


002202 


6196 


070614 


012704 


072220 


6197 


070620 


004737 


010662 


6198 


070624 


103405 




6202 


070626 


010001 




6203 


070630 







440$: 



TST 


FATFLG 




»WAS THE DRIVE NOT WRITE LOCKED 




BEQ 


4351 




iBR. IF FLAG NOT SET 




JMP 


2$ 




iRE-WRITE MENU 




MOV 


SFREE.T38WR 




iSET UP WRITE BUFFER ADDRESS 




MOV 


4T38PK4.R4 




iGET PACKET ADDRESS 




MOV 


R4.YS0BCR5) 




iSET THE PACKET ADDRESS 




JSR 


PC.WAITF 




iWAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




jGET TSSR 




MOV 


♦SC!SSR!BIT1! 


!BIT2,R2 


jSET UP EXPECTED 




CMP 


R1.R2 




lARE THEY EQUAL (CORRECT) 




BEQ 


4401 




iBR, IF CORRECT STATUS 




ERRHRO 


ERRN0.T38WRT, 


.PKTSSR 


j"TSSR INCORRECT AFTER WRITE COMMANO 








TRAP 


CIERHRO 








.WORD 


1014 








.WORD 


T38WRT 








.WORD 


PKTSSR 


CKLOOP 






lLOOP ON ERROR. IF FLAG SET 

TRAP 


CICLP1 


MOV 


T38BFR+6.R1 




jREAD XSTO CONTENTS 




MOV 


RI.R2 




jSET UPR EXPECTED 




BIS 


*eiTU # R2 




jSET THE. WRITE LOCK ERROR BIT (XSTO) 


CMP 


R1.R2 




iWAS THE BIT SET 




BEQ 


45CI 




tBR, IF IT WAS (GOOD) 




ERRHRD 


ERRN0.T38WLE 


.EXPREC 


I "WRITE LOCK ERROR BIT NOT SET" 

TRAP 
.WORD 
.WORD 
.WORD 


CIERHRO 

1015 

T38WLE 

EXPREC 


CKLOOP 






jLOOP IF SELECTED 

TRAP 


CICLP1 


JMP 


21 




iGO BACK TO MENU 





4501: 



i****************************************************************** 

; SERVO EXERCISER NO LONGER USED 

} ************************** ********************************* ******** 

301: 

0T38MS3 



PRINTB 



TO STOP 
#T38MS3.-(SP) 
•1,-CSP) 

SP.RO 

CIPNTB 

$4,SP 



JSR 


PC»T38REST 


JSR 


PC.SOFINIT 


BCS 


5001 


MOV 


R0.R1 


ERROF 


ERRNO.SFIERR.SFIMSG 



072240 5001 



MOV 


UNITN.T38DSW 


MOV 


0T38PK2.R4 


JSR 


PC.WRTCHR 


BCS 


5101 


MOV 


R0.R1 


ERRHRD 


ERRMO.WRTMSG.SFIMSG 



j»EXE ANY OTHER MENU SELECTION 

MOV 

MOV 

MOV 

TRAP 

ADD 

j SET PACKET TO INITIAL VALUES 
iOO SOFT INIT OF CONTROLLER 
tBR IF ^OFT INIT - OK 
jSAVE CONTENTS OF TSSR 
iDEVICE FATAL ERROR DURING INIT 

TRAP CIERDF 

.WORD 1016 

.WORD SFIERR 

.WORD SF'IMSG 
iSET UNIT NUMBER 

jSUBROUTINE NEEDS PACKET ADDRESS 
j ISSUE WRITE CHARACTERISTICS 
iBR, IF COMMANO ISSUED OK 
iSAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTIC FAILED 
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G2 



SEQ 0226 



070630 


3 04456 












TRAP 


C$ERHRD 


070632 


001771 












.WORD 


1017 


070634 


005056 












.WORD 


WRTMSG 


070636 


012034 












.WORD 


SFIMSG 


6204 070640 








510$; 










6205 070640 


112737 


000000 


071531 




MOVB 


OO.T38BS1 


t CLEAR BIT 04 




6206 070646 


112737 


000020 


07lb30 




MOVB 


O20.T3BBS0 


{EXECUTE DRIVE TEST 22 




6207 0706S4 


012704 


071520 






MOV 


OT38PACKLT.R4 


{SET UP NEW WRT, SU8SYS MEM. COMMAND 


6208 070660 


010465 


000000 






MOV 


R4.TS0BCR5) 


iSET THE PACKET ADDRESS 




6209 070664 


004737 


016336 






JSR 


PC.CHKTSSR 


(WAIT FOR SSR TO SET 




6210 070670 


103405 








BCS 


550$ 


jBR IF CARRY SET CGOOO RETURN) 




6211 070672 


010001 








MOV 


R0.R1 


j SAVE C0NTENT5 OF TSSR 




6215 070674 










ERRDF 


ERRN0,T38SSR,PKTSSR 


DEVICE FATAL SSR FAILED TO SET 




070674 


104455 












TRAP 


CIERDF 


070676 


001772 












.WORD 


1018 


070700 


072716 












.WORD 


T38SSR 


070702 


012046 












.WORD 


PKTSSR 


6216 070704 








550$} 


CKLOOP 




j LOOP ON ER30R, IF FLAG SET 




070704 


104406 












TRAP 


C$CLP1 


6217 070706 










SETPRI 


0PRI06 


jRAISE THE PRIORITY 




070706 


012700 


000300 










MOV 


OPRI06.RO 


070712 


104441 












TRAP 


C$SPRI 


6218 070714 


005037 


071504 






CLR 


TTI0N2 


, ASSUME INTERRUPTS ARE ENABLED 




6219 070720 


032737 


000100 


177560 




BIT 


0100.&OTTICSR 


j ARE TTI INTERRUPTS ON 7 




6220 070726 


001005 








BNE 


555$ 


j BRANCH IF YES 




6221 070730 


005237 


071504 






INC 


TTI0N2 


{FLAG SET IF INTERRUPTS OFF 




6222 070734 


052737 


000100 


177560 




BIS 


0100.B0TTICSR 


I ENABLE INTERRUPTS 




6223 070742 


012701 


000060 




555$: 


MOV 


0TTIVEC.R1 


tSTART OF TTI VECTORS 




6224 070746 


011137 


071506 






MOV 


(RD.TVSAV2 


j SAVE THE CURRENT TTI VECTOR 




6225 070752 


012721 


071000 






MOV 


#590$, (Rl ?• 


iSET NEW INTERRUPT ROUTINE 




6226 070756 


011137 


071510 






MOV 


CR1),TPjAV2 


jSAVE THE VECTOR PRIORITY 




6227 070762 


012711 


000300 






MOV 


OPRICj.(RI) 


,USE PRIORITY SIX 




6228 070766 










SETPRI 


OPRIOO 


jLOWER INTERRUPT BR LEVEL 




070766 


012700 


000000 










MOV 


OPRIOO.RO 


070772 


1044*1 












TRAP 


C$SPRI 


6229 070774 


000240 






560$: 


NOP 




{LOOP AWHILE 




6230 070776 

6231 

6232 


00O776 








BR 


560$ 


(STAY IN "TIGHT" LOOP 










j PROCESS CONSOLE INTERRUPTS 






6233 








i ~ 










6234 


















6235 0710O0 


010046 






590$: 


MOV 


RO, (SP) 


iSAVE WORK REGISTER 




6236 071002 


113700 


177562 






MOVB 


BOTTIBFR.RO 


iGET THE OPERATOR INPUT 




6237 071006 


042700 


0O0200 






BIC 


O20O.R0 


{STRIP OFF PARITY BIT 




6238 071012 


122700 


000015 






CMPB 


015.R0 


j IS IT A CARRIAGE RETURN ? 




6239 071016 


001075 








BNE 


591$ 


{JUST EXIT IF NOT 




6240 071020 


012766 


066752 


000002 




MOV 


02$,2(SP) 


{RETURN TO MASTER MENU 




6241 071026 


005066 


000004 






CLR 


4(SP) 


iFORCE PRIORTY 




6242 071032 


013737 


071506 


000060 




MOV 


TVSAV2.B0TTIVEC iRESTORE VECTOR 




6243 071040 


013737 


071510 


000062 




MOV 


TPSAV2,»OTTIVEC*2 


{RESTORE SUPER PRIORTY 




6244 071046 


112737 


000025 


071530 




MOVB 


025.T388S0 


{STOP DRIVE TEST 22 




6245 071054 


112737 


000000 


071531 




MOVB 


OO.T38BSI 


{CLEAR BS1 




6246 071062 


012704 


071520 






MOV 


OT38PACKET.R4 


i SET UP NEW WRT, SUB.'YS MEM. COMMAND 


6247 071066 


010465 


000000 






MOV 


R4.TSDe(R5) 


,SET THE PACKET ADDRESS 




6248 071072 


012737 


176750 


071512 




MOV 


065000. . T38DLY 


j SET UP DELAY COUNTER 




6249 071100 


004737 


016250 




592$: 


JSR 


PC.wAirr 


iDO A WAIT FOR SSR 




6250 071104 


016501 


000002 






MOV 


TSSR(R5) f Rl 


{CONTENTS OF TSSR REGISTER 
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SEQ 0227 



6251 071110 


032701 


000200 




BIT 


OSSR.Rl 


6252 071114 


001017 






BNE 


595* 


6253 071116 








DELAY 


250 


071116 


012727 


000250 








071122 


000000 










071124 


013727 


002116 








071130 


000000 










071132 


005367 


177772 








071136 


001375 










071140 


005367 


177756 








071144 


001367 










6254 071146 


005337 


071512 




DEC 


T38DLY 


6255 071152 


001352 






BNE 


592* 


6256 071154 


004737 


016336 


595*; 


JSR 


PC.CHKTSSR 


6257 071160 


103405 






BCS 


580* 


625? 071162 


010001 






MOV 


R0.R1 


6262 071164 








ERRDF 


ERRN0,T38SSR,PKTSSR 


071164 


104455 










071166 


001773 










071170 


072716 










071172 


012046 










6263 071174 






580*: 


CKLOOP 




071174 


104406 










6264 071176 


005737 


071504 




TST 


TTI0N2 


6265 071202 


001403 






BEQ 


591* 


6266 071204 


042737 


000100 177560 


BIC 


*100,S*TTICSR 


6267 071212 


012600 




591*: 


MOV 


(SP)* ,R0 


6268 071214 


000002 






RTI 




6269 071216 






35*: 






6270 071216 


004737 


074046 




JSR 


PC.T38&EST 


6271 071222 


004737 


015774 




JSP 


PC.SOFINIT 


6272 071226 


\03405 






BCS 


600* 


6276 071230 


010001 






MOV 


R0.R1 


6277 071232 








ERRDF 


ERRNO.SFIERR.SFIMSG 


071232 


104455 










071234 


001774 










071236 


003652 










071240 


012034 










6278 071242 






600*: 


CKLOOP 




071242 


104406 










6279 071244 


012701 


071536 




MOV 


#T38BFR,R1 


6280 071250 


012702 


125252 




MOV 


0125252, R2 


6281 












6282 071254 


010221 




601*: 


MOV 


R2.CRD* 


6283 071256 


022701 


072212 




CMP 


#T38EB,R1 


6284 0/1262 


001401 






BEQ 


605* 


6285 71264 


000773 






BR 


601* 


6286 071266 


013737 


002202 072240 605*; 


MOV 


UNHN.T38DSW 


6287 071274 


012704 


072220 




MOV 


♦ T38»->?,R4 


6288 07 1500 


004737 


010662 




JSR 


PC.WRTCHR 


6289 071304 


103405 






BCS 


610* 


6293 071306 


010001 






MOV 


R0.R1 


6294 071310 








ERRHRO 


ERRNO,WRTMSG,SFIMSG 


071310 


104456 










071312 


001775 










071314 


005056 










071316 


012054 











*250,CPO* 


l:dly,(pc>* 
o 

-6CPC) 
. -4 

-22CPC) 
.-20 



C*ERDF 
1019 
T38SSR 
PKTSSR 

C*CLP1 



j CHECK FOR TSSR SET 

jKEEP GOING IF NOT SET 

j CALL DELAY ROUTINE 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

I BUMP COUNTER DOWN 

,BR, IF MORE TIME LEFT 

I WAIT FOR SSR TO SET 

iBR IF CARRY SET (GOOO RETURN) 

I SAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP 
.WOfiD 
.WORD 
.WORD 

lLOOP ON ERROR, IF FLAG SET 

TRAP 

»ARE SUPER INTERRUPTS ENABLED 

»8R, IF YES 

jRESTORE REGISTER 

j RESTORE REGISTER 

iRETURN 

I SET PACKET TO INITIAL VALUES 

jDO SOFT INIT OF CONTROLLER 

l BR IF SOFT INIT - OK 

j SAVE CONTENTS OF TSSR 

I DEVICE FATAL ERROR DURING INIT 

TRAP C*ERDF 

.WORD 1020 
.WORD SFIERR 
.WORD SFIhSG 

j LOOP IF SELECTED 

TRAP C*CLP1 

tADORESS OF MESSAGE BUFFER 

l ALTERNATING 1*5 ANO O'S 

i CLEAR OUT THE MESSAGE BUFFER 

lENO OF BUFFER YET 

jBR, IF AT END OF BUFFER 

jNOT AT ENO KEFP GOING 

iSET UNIT NUMBER 

t SUBROUTINE NEEDS PACKET ADDRESS 

i ISSUE WRITE CHARACTERISTICS 

jBR, IF COMMAND ISSUED OK 

jSAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC 



FAILED 




TRAP 


C*ERHRD 


.WORD 


1021 


.WORD 


URTMSG 


.WORD 


SFIMSG 



12 
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6295 

6296 

6L97 
6298 
6299 

6300 
6301 
6302 
6303 
6304 
6305 



6306 
6307 
6308 
6309 
6310 
6314 



6315 

6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 



6325 
6326 

6327 
6328 
6329 
6330 
6331 
6332 
6333 
6334 
6335 
6336 
6337 
6238 



071320 
071320 
071322 
071330 
071536 
0/1542 
071346 
071354 
071360 
071364 
071370 
071372 
071^72 
071376 
071400 
071404 
071406 
071412 
071414 
071420 
071422 
071426 
071430 
071434 
071436 
071440 
071440 
071442 
071444 
071446 
071450 
071450 
0/1452 
071456 
071460 
071464 
071470 



071474 
0715OC 
071500 
071502 



071504 

071 r 

071510 



104406 
112737 
112737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005567 
001375 
005367 
001367 
005337 
001352 
004737 
103405 
OlCOOt 

104455 
001776 
072716 
012046 

104406 
012700 
005001 
005037 
0O4737 
000137 



071556 

003134 
074104 
066752 



000137 000200 

104432 
003054 



000000 
000000 
000000 



610$ j CKLOOP 



000000 071531 

000024 071530 

071520 

000000 

000144 071512 

016250 

000002 

000200 



000250 
002116 
177772 
177756 
071512 
016336 



620$: 



MOVB 


*0,T38BS1 


MOVB 


*24,T38BS0 


MOV 


*T3BPACKET,R4 


MOV 


R4.TSDBCR5) 


MOV 


*100.,T38DLY 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


BIT 


0SSR.R1 


BNE 


630$ 


DELAY 


250 



630$: 



DEC 


T38DLY 


BNE 


620$ 


JSR 


PC,CHKTSSR 


BCS 


650$ 


MOV 


R0,R1 


ERRDF 


HRRN0,T385SR,PKT5SR 



650$ 



63$: 
64$: 



CKLOOP 

MOV 
CLK 
CLR 
JSR 
JMP 



JMP 
EXIT 



*T38BFR»20,R0 

Rl 

KTENABLE 

PC, T3BM8P 

2$ 



200 
TST 



LOCAL TEXT MESSAGES FOR TEST 
LOCAL STORAGE FOR THIS TEST 
LOCAL STORAGE FOR THIS TEST 





TTI0N2; 




.WORD 


TVSAV2: 


.WORD 





TPSAV2: 


.WORD 






SEQ 0228 



j LOOP IF SELECTED 

TRAP C$CLP1 
j CLEAR BIT *4 

I READ EXTENOED DRIVE STATUS 
I SET UP NEW WRT. SLBSYS MEM, COMMAND 
»SET THE PACKET ADDRESS 
j SET UP DELAY ROUTINE 
jWAIT AWHILE FOR SSR TO SET 
j SEE IF IT REALLY DID 
I JUST CHECK THAT BIT 
j BR, IF SSR 15 SET 
I DELAY ABOUT .25 SEC 



MOV 


0250, (PC)* 


.WORD 





MOV 


L IDLY, (PC)* 


.WORD 





DEC 


-6CPC) 


BNE 


. 4 


DEC 


-22CPC) 


BNE 


.-20 



i START DELAY COUNT DOWN 

i BR, IF COUNTER IS NOT AT DONE 

,WAIT FOR SSR TO SLT 

i BR IF CARRY SET (GOOO RETURN) 

iSAVE CONTENTS OF TSSR 

I DEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
.WORD 1022 
.WORD T38SSR 
.WORD PKTSSR 

j LOOP ON ERROR, IF FLAG SET 

TRAP CICLP1 

jMESSAGE BUFFER ADDRESS 

I NO HIGH ORDER ADDRESS BITS 

I NO KT11 STUFf- EITHER 

jGO PRINT MESSAGE BUFFER CONTENTS 

jGO BACK TO MENU 



I REALLY 


RETURN 


TO 


THE 


SUPERVISOR 


j LEAVE 


TEST 






TRAP 
.WORD 


C$EXIT 
L10075-. 



i SAVE 
j SAVE 



iWORD SFT IF SUPERVISOR TTI INTER OFF 
TTI VECTOR 
TTI PRIORITY 



J2 
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SEQ 0229 



6539 

6200 

6342 

6344 

6345 

6346 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6359 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

£371 

6372 

6373 

6375 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 

6386 

6388 

6389 

6390 

6391 

6392 

6393 

6394 

6395 

6396 

6397 

6398 

6399 

6400 

6401 

6402 

6403 



071512 

071520 
071520 
071522 
071524 
071526 
071530 
071530 
071531 
071532 
071534 
071536 
072212 



072220 
072220 
072222 
072224 
072226 



072230 
072230 
072232 
072234 
072236 
072240 

072250 
r 72252 
072254 
072256 
072260 



072270 
072272 
072274 
072276 



000000 
071520 

140006 
071530 
000000 
000012 

000 
000 

oooooo 

000000 

oooooo 



072220 

140004 
072230 
OOOOOO 
000012 



071536 
OOOOOO 
000400 
OOOOOO 
OOOOOO 
072250 
140212 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



072270 
140005 
OOOOOO 
OOOOOO 
000400 



T38DLY< 


.WORD 







.-<.*10 


>6177770 


T38PACKET: 






.WORD 


140006 




.WORD 


T38TAD 




.WORD 







.WORD 


10. 


T38TAD 






T38BS0 


.BYTE 





T38BS1 


.BYTE 





T38BS2 


.WORD 







.WORD 





T38BFR 


.BLKW 


150. 


T38EB: 


. WORD 





T38PK2; 



.-<. *10>£177770 





.WORD 


140004 




.WORD 


T38DTA 




.WORD 







.WORO 


10. 


T38DTA: 








.WORD 


T38BFR 




.WORD 







.WORD 


256. 


T38EAI; 


.WORD 





T38DSW: 


.WORD 







.■<.*10 


>£177770 


T38PK3: 


.WORD 


140212 




.WORD 







.WORD 







.WORD 







.WORD 





JwRITE 


TAPE PACKET 


i 


. - < . ♦ 10 


>6177770 


T38PK4: 


.WORD 


140005 


T38WK: 


.WORD 







.WORD 





T3BSJ.Z: 


.WORD 


256. 



iDELAY COUNTER FOR TEST 

I COMMAND PACKET FOR TEST 

jWRITE SUBSYSTEM MEM. CMO. ACK.CVC-1 

j ADDRESS Of CHARACTERISTICS BLOCK 

I STARTING /ALUE OF BLOCK SIZE 
* CHARACTERISTICS Di\TA BLOCK 
,BSELO BYTE 
»BSEL1 BYTE 
jBSELl WORD 
lOATA 

, MESSAGE BUFFER 
i END OF BUFFER ADDRESS 



» COMMAND PACKET FOR TEST 

jWRITE CHARA. MEM. CMNO., ACK,CVC«1 

I ADDRESS OF SELECT DATA BLOCK 

I STARTING VALUE OF BLOCK SIZE 



t SELECT DATA BLOCK 

j ADDRESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

lEAI BIT WORD 

{DRIVE SELECT WORD ETC 

{MESSAGE BUFFER RELEASE COMMAND 
j NOT USED 
{NOT USED 
{NOT USED 
j NOT USED 



iWRITE, ACK, CVC-1 COMMAND 
{ADDRESS OF WRITE BUFFER 
,MORE ADDRESS OF WRITE BUFFER 
iSIZE OF RECORD 



i LOCAL TEXT MESSAGES FOR TEST 
J - 



I<2 
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SEQ 0230 



6404 

6405 

6406 

6407 

6408 

6409 

6410 

6411 

64 1*:' 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

644 7 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 



072300 
072355 
072450 
072534 
072575 
072642 
072716 
073006 
073036 
073072 
073126 
073216 
073311 
073355 
C73415 

073442 
073456 

073466 
073540 
073566 
073620 
073653 
073707 
073735 
074000 
074043 



074044 
074046 
074046 
074052 
074056 
074062 
074066 
074070 
074074 
074076 
074100 
074102 



123 
045 
124 
127 
127 
127 
103 
045 
045 
045 
103 
045 
045 
111 
115 

073466 
073735 

012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
000 



000000 



012701 
012721 
012721 
005021 
012721 
005021 
005021 
005011 
000307 



164 
116 
123 
122 
122 
122 
157 
116 
116 
116 
157 
116 
116 
163 
141 

073540 
074000 

123 
Oil 
061 
062 
063 
064 
065 
066 



141 
045 
123 
111 
111 
111 
156 
045 
045 
045 
156 
045 
045 
040 
156 

073566 
074043 

105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 



071520 
14U2C6 
071530 

000006 



T38NE; 
T38MS3 
T38WRT 
T38WRL 
T38WLE 
T38NBA 
T38SSR 
T38INT 
T380NL 
T380FL 
T38SST 
T38MS1 
T38MS2 
T33MSG 
T38ID: 

MIMENU; 



1$ 

2* 
31 

4$ 
5$ 

6$ 
8$ 
9* 
10$ 



i 



.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCI7 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.WORD 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



Stand-alone Manual Intervention Not Executed' 

#N*A Type <RETURN> To Stop Servo Exerciser, Return T^ Menu 

TSSR Not Correct After WRITE, With WRITE PROTF" On' 

WRITE LOCKED Bit Not Set In XSTO' 

WRITE LOCK ERROR B i t Not Set In XSTO' 

WRITE SUBSYSTEM MEMORY Coflvnand Not Accepted 1 

Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY' 

ffN**A Interrupt Received' 

*N*A Drive Ie Now ON-LINE' 

*N*A Drive Ie Now OFF-LINE' 

Contents Of TSSR Incorrect After MESSAGE BUFFER 

#N#AToggle ON-LINE Switch to Generate ATTENTION 

*N*AType RETURN To Return To Menu*N' 

Is Write -Protected Tape Mounted' 

Manual Intervention' 



RELEASE' 
Interrupts' 



11,2$, 3$, 41,5$, 6$ 
8$,9$,10$,0 

<12>' SELECT OPERATION FROM FOLLOWING OPTIONS;' 



<12> 



{LOCAL STORAGE FOR 
I - 

T38DAT: .WORD 
T38REST; 




1 
2 
3 
4 
5 
6 



THIS TEST 



Display This Menu' 

Turn On All M7 L96 LEO' 's' 

Turn Off All M7196 LED" 9' 

Offline/Online Attention' 

Write Protect Test' 

Print Extended Transport Status' 

Return to Diaonostic Supervisor' 



SAVREG 

MOV 0T3BPACKET.R1 

MOV 4140206, CR1)* 

MOV CT38TAD.CR1)* 

CLR (Rl)» 

MOV 06., CRD* 

CLR (Rl)» 

CLR (Rl)f 

CLR (Rl) 

RTS PC 



jLOGICAL RESPONSE TO QUESTION 

i SAVE THE REGISTERS 

l START OF THE PACKE1 

jWRITE SUBSYSTEM MEM. WITH ACK.CVC-1 

t ADDRESS OF DATA BLOCK 

lEXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

j CLEAR BSELO AND BSEL1 

I 'LEAR 5EL2 

i CLEAR DATA AREA 

j RETURN 



J ♦ 

i THIS ROUTINE PRINTS THE CONTENTS OF 

( THE 256 BYTE MESSAGE BUFFER RETURNED BY THE 

iTSV-05. 



j INPUT: 



RO 



LOW ORDER ADDRESS OF MESSAGE BUFFER 



L 
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6461 
6462 
6463 
6464 
6465 
6466 
6467 
6468 
6469 
6470 
6471 
6472 
6473 
64 74 
6475 
6476 



SEQ 0231 



6477 



6478 
6479 
6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 



074104 

074104 

074110 

074112 

074116 

074120 

074122 

074124 

074126 

074130 

074130 

074132 

074134 

074140 

074144 

074146 

074150 

074154 

074154 

074160 

074 164 

074166 

074170 

074174 

074176 

074200 

074202 

074206 

074210 

074214 

074216 

074222 

074224 

074226 

074232 

074234 

074236 

074240 

074242 

074244 

074250 

074252 

074254 

074260 

074262 

074266 

074272 

074272 

074274 

0742/6 

074302 



010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
OlCoOO 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010501 
010300 
001403 
004737 
010005 
010537 
011504 
022704 
001417 
010403 
042704 
000241 
006004 
006004 
006004 
006004 
042703 
060403 
010325 
020527 
001355 
013705 
012704 

012546 

010446 
012746 
012746 



Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE} Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 



003134 



074406 
000003 



000010 

074453 
000001 



000004 

017316 
074554 
125252 

170377 



177760 



072212 

074554 
000001 



074530 
000003 



T38MBP: 


SAVREG 






MOV 


R0,R5 




TST 


KTENABLE 




BNE 


910* 




CLR 


Rl 


910$: 


MOV 


R1.R3 




ROL 


RO 




ROL 


Rl 




PRINTX 


0T38AS0,R1,R5 



j SAVE THE REGISTERS 

{SAVE LOW ORDER ADDRESS 

j ADDRESS ABOVE 28K? 

i BR IF YES 

jSET HIGH ORDER ADDRESS TO 

I SAVE HIGH ORDER ADDRESS 

iSHIFT BIT15 TO C BIT 

j SHIFT TO HIGH ORDER FOR PRINTOUT 

j PRINT MESSAGE BUFFER ADDRESS 

MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 



PRINTX OT38AS1 



j PRINT HEADER FOR CONTENTS 



ADD 

MOV 

MOV 

MOV 

TRAP 

ADD 



R5.-CSP) 

Rl.-(SP) 

OT38ASO,-(SP) 

#3,-(SP) 

SP.RO 

C*PNTX 

010, 5P 

OT38AS1.-CSP) 

01,-CSP) 

SP.RO 

CiPNTX 

04, SP 





MOV 


R5.R1 j 


COPY LOW ORDER ADDRESS 






MOV 


R3.R0 i 


COPY HIGH ORDER ADDRESS 






BEQ 


913* j 


BR IF NOT ABOVE 28K 






JSR 


PCSFTMAP j 


SETUP PAR ADDRESS IN RO 






MOV 


R0.R5 


GET PAR FORMAT ADDRESS ABOVE 26K 




913*! 


MOV 


R5.T38CNT 


HOLD ADDRESS 




911$: 


MOV 


(R5),R4 


GET BUFFER ENTRY 






CMP 


0125252, N4 i 


CHECK FOR NO LOAD CONDITION 






BEQ 


912* 


BR, IF BUFFER WASN'T LOADED 






MOV 


R4.R3 


MAKE COPY 






BIC 


0170377, R4 


ONLY BITS 11,10,9 AND 8 ARE SAVED 






CLC 




CLEAR CARRY 






ROR 


R4 


11 TO 10 BIT POSITION 






ROR 


R4 


10 TO 9 BIT POSITION 






ROR 


R4 


9 TO 8 BIT POSITON 






ROR 


R4 


8 TO 7 BIT POSITION 






BIC 


0177760, R3 


ONLY BITS 3,2,1 AND ARE SAVED 






ADD 


R4.R3 


"OR 4 EM TOGETHER 






MOV 


R3.CR5)* 


jPUT BACK IN BUFFER 






CMP 


R5.0T38EB 


l END OF BUFFER YET 






BNE 


911* 


iBR, IF NOT A I ENO YET 




912*: 


MOV 


T38CNT.R5 


PUT ADDRESS BACK 






MOV 


01, R4 


I START BYTE NUMBER AT ONE 




915*: 


PRINTX 


0T38ASN,R4,(R5)* 


:PRT MEM BUFFER W/NEWLINE 

MOV 
MOV 
MOV 
MOV 


(R5)> . (SP) 

R4.-(S>) 

OT38ASM.-CSP) 

tf3,-(SI>) 



M2 
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6502 
6503 
6504 



6505 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 



6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 

65M 

6S 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 



074306 
074310 
074312 
074316 
074322 
074324 
074324 
074326 
074330 
074334 
074340 
074342 
074344 
074350 
074354 
074356 
074362 
074364 
074372 
074374 
074376 
074402 
074404 

074406 
074453 
074511 
074530 

074554 
074556 
074556 
074556 



010600 
104415 
062706 
005037 
000412 

012546 

010446 
012746 
012746 
010600 
104415 
062706 
005237 
005204 
020427 
003010 
023727 
001401 
000753 
005037 
000733 
000207 

045 
045 
045 
045 

000000 



104401 



000010 
074554 



074511 
000003 



000010 
074554 

000200 

074554 

074554 



116 
116 
101 
116 



CLR 
BR 
920*: PRINTX 



T38CNT 

9211 

0T38ASC,R4,(R5)* 



\ CLEAR COUNTER 
j SKIP OTHER PRINT 
j PRINT THE CONTENTS 



OF 



921$: 



000004 



045 
045 
040 
045 



925$: 

50*: 

T38AS0: 
T38A51: 
T38ASC: 
T38ASN: 

T48CNTJ 



INC 

INC 

CMP 

BGT 

CMP 

BEQ 

BR 

CLR 

BR 

RTS 

.ASCIZ 
.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

ENOTST 



T38CNT 

R4 

R4.0128, 

50$ 

T38CNT.44 

925$ 

920$ 

T38CNT 

915$ 

PC 



{BUMP COUNTER 
j NUMBER OF THE NEXT 

j DONE ALL YET ? 
I BRANCH IF ALL DONE 

j DONE FOUR YET 

j BR, IF THREE DONE 
{KEEP GOING 





SEQ 0232 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


010 ,SP 


EMORY 


BUFFER 


MOV 


CR5)*,-(SP) 


MOV 


R4,-(SP) 


MOV 


*T38ASC,~(SP) 


MOV 


03,-CSP) 


MOV 


SP,RO 


TRAP 


C$PNTX 


ADD 


010, SP 



tRETURN 



{CLEAR COUNTER 
{PRINT WITH NF.U LINE 



•rfKWA Meeeaoe Buffer Address • rf01*05' 
•#N#A Meeeeoe Buffer Contents: ' 
'*A #D4*A; #03' 
'*N*A Byte*D4*A; #03' 

{COUNTER FOR PRINT 



L10075: 



.SBTTL TEST 11: CONFIGURATION TYPEOUT 



TRAP 



C$ETST 



{THIS IS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
} THE CONFIGURATION OF THE M7196 MODULE AND TSV05 SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 

1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF (EXTENDED FEATURES DISABLED), 

2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 

3.0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE AND STATE ( ONLINE /OFFL INE . WRITE ENABLED/PROTECTED ) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE PROGRAM WILL INDICATE, 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEATURE. 

THE OPERATOR IS EXPECTED TO READ THE PRINTOUT AND VERIFY THAT IT MATCHES 
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SEQ 0233 



6547 
6548 
6549 
6550 
C551 
6552 
6553 
6554 
6555 
6556 
6557 
6558 
6559 
6f60 
65c I 

656f, 

656"' 
6568 
6569 
6570 
6571 
6572 
6573 
6574 
6575 
6576 
6577 
6581 
6582 



6583 

6584 
6585 
6586 
6587 
6591 
6592 



6593 

6594 
6595 



6596 



07456C 

074560 

074560 

074560 

074562 

074564 

0/4570 

074572 

074576 

074602 

074606 

074613 

074614 

074614 

074620 

074622 

074624 

074624 

074626 

074630 

074632 

074634 

074634 

074636 

074644 

074650 

074654 

074656 

074660 

074660 

074662 

074664 

074666 

074670 

074670 

0746 72 

074676 

074676 

74 702 

074706 

074/10 

0/4/12 

074716 



104421 
001403 
012700 
000402 
012700 
004737 
004737 
10340c 
00013/ 

0047?7 

103405 
010001 

104455 
002115 
003652 
012034 

104406 
013737 
012704 
004737 
103405 
010001 

104456 
002116 
005C56 
012034 

104406 
013701 

012746 
012746 
010600 
1C4415 
062/06 
032701 



I THE ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM INDICATES 
j THAT IT "SEES" TWO TRANSPORTS CONNECTED WHEN IN FACT ONLY ONE IS PRESENT, 
I THE OPERATOR MUST INTERPRET THIS AS AN ERROR AND ATTEMPT TO FIND THE 
;CAUSE (BAD CABLE, FAULTY UNIT-SELECT DECODING IN THE TRANSPORT, ETC.). 
{[SINCE THE CONTROLLER CAN ONLY ACCESS UNIT IF IT IS IN "STANDARD" 
iMODE, THE PROGRAM WILL FORCE THE MODULE INTO EXTENDED MODE VIA THE 
j WRITE SUBSYSTEM MEMORY COMMAND IN ORDER TO SCAN FOR CONNECTED TRANSPORTS.] 
i 

j THIS ROUTINE, WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK TO THE 
{DIAGNOSTIC SUPERVISOR SO THAT IF ADDITIONAL UNITS (CONTROLLERS) ARE 
{SELECTED (E.G., FROM THE INITIAL STARTUP DIALOG), THE ROUTINE WILL BE 
{REENTERED SO THAT THEIR CONFIGURATIONS CAN BE PRINTED. 



BGNTST 



076553 

077702 
016510 
020500 

075770 

015774 





RFLAGS 


RO 




BEQ 


10$ 




MOV 


*T39NE,R0 




BR 


11$ 


10$: 


MOV 


♦TST39I0.R0 


11$: 


JSR 


PCTSTSETUP 




JSR 


PC.CHKMAN 




DCS 


20$ 


^A t . 


JMP 


64$ 


du> : 


JSR 


PC.SOFINIT 




BCS 


25$ 




MOV 


R0.R1 




ERRDF 


ERRNO.SFIERR.SFIMSG 



25$ 



CKLOOP 



002202 076520 

076500 

01066^' 



MOV 


UNITN.T39DSW 


MOV 


♦T39PK2.R4 


JSR 


PC.WRTCHR 


BCS 


50$ 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG.SFIMSG 



50$ 



076030 

077421 
000001 



000004 
00020C 



CKLOOP 

MUV 
PRINTX 



T39BFR*12,R1 
0T39SFS 



Till 
{GET OPERATOR FLAGS 



TRAP 



C$RFLA 



jBR, IF OK TO RUN 

{"TEST NOT EXECUTED" 

{JUMP OUT OF TEST IF NOT 

{TEST ID MESSAGE 

{DO THE COMMC:) SETUP 

{IS MANUAL INTERVENTION ALLOWED? 

tBR, IF MANUAL INTERVENTION ALLOWED 

,JUMP TO OUT IF NOT 

j DO SOFT INIT OF CONTROLLER 

jBR IF SOFT INIT - OK 

{"■AVE CONTENTS OF TSSR 

{DEVICE FATAL ERROR DURING INIT 

TRAF C$ERDF 
.WORD 1101 
.WORD SFIERR 
.WORD SFIMSG 
{LOOP IF SELECTED 

TRAP C$CLP1 

{SET UNIT NUMBER 

{SUBROUTINE NEEDS PACKET ADDRESS 

{ISSUE WRITE CHARACTERISTICS 

;BR, IF COMMAND ISSUED OK 

{SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC 



{LOUP IF SELECTED 

{GET XST2 STATUS FROM 
{"STATE OF EXTENDED 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 

TPAP 
MES'JAGE 



C$ERHRD 

110? 

WRTMSG 

SFIMSG 

C$CLP1 
BUFFER 



BIT 



♦QIT7.R1 



{CHECK STATE OF E,F 



FEATURES 

MOV 
MOV 
MOV 
TRAP 
AGO 
S. 



sw 



OT39SFS. -ISP) 
*1, -CSP) 
SP.RO 

" JPNTX 
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6597 
6590 



6599 
6600 



6601 



6602 
6603 
6604 



6605 
6606 



6607 
6606 
6609 



6610 
6611 
6615 

6616 



6617 

6618 

6619 
6620 



074722 

074724 

074 724 

074730 

074734 

074736 

074 740 

074744 

074 746 

074746 

074752 

074756 

074 760 

074 762 

074766 

074766 

074772 

074776 

075000 

075002 

075006 

075012 

075014 

075014 

075020 

075024 

075026 

075030 

075034 

0/5036 

075036 

075042 

075046 

075050 

075052 

075056 

075O62 

075066 

075066 

075072 

075076 

075102 

075104 

075106 

075112 

075116 

075120 

075122 

075122 

075124 

075126 

075130 

075132 

075132 

075134 

075142 

075146 



001011 

012746 
012746 
010600 
104415 
062706 
000410 

012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
032701 
001011 

012746 
012746 
010600 
104415 
062706 
000410 

012746 
012746 
010600 
104415 
062706 
042701 
010137 

013746 
012746 
012746 
010600 
104415 
062706 
004737 
103405 
010001 

104455 
002117 
003652 
012034 

104406 
013737 
012704 
004737 



077545 
000001 



000004 



077554 

000001 



000004 

077473 
000001 



000004 
000100 



077545 
000001 



000004 



077554 
000001 



000004 

177700 
077640 

077640 
077563 
000002 



000006 
015774 



BNE 100 J 
PRXNTX 0T390FF 



100$ j 



BR HOI 

PRINTX 0T39QN 



1101 j PRINTX 0T39SBS 



BIT #6IT6,R1 
BNE 1201 

PRINTX 0T390FF 



120$ j 



BR 130$ 
PRINTX 0T390N 



130$ j 



BIC #177700, Rl 

MOV R1.T39RL 
PRINTX 0T39MCL.T39RL 



JSR 
BCS 
MOV 
ERRDF 



140$ i CKLOOP 



PCSOTINIT 

140$ 

R0.R1 

ERRNO.SFIERR.SFIMSG 



002202 076520 

076500 

010662 



MOV 
MOV 
JSR 



UNITN.T390SW 

*T39PK2,R4 

PC.WRTCHR 



iBR, IF EXT. FEA. SW, IS ON 



OFF 



OTHER 



MOV 
MOV 
MOV 
TRAP 
ADO 
PRINT STATEMENT 



jSKIP 

i" ON 

MOV 

MOV 

MOV 

TRAP 

AOO 

j"S T ATE OF BUFFERING SWITCH ■ 

MOV 
MOV 
MOV 
TRAP 
ADD 

, CHECK STATE OF BUFFERING SW 

iBR. IF BUFFERING IS ON 



I 



OFF 



ISKIP 
I" ON 



OTHER PRINT 



tONLY 
I LOAD 



LEAVE MICROCOOE 
UP REV LEVEL 



MOV 
MOV 
MOV 
TRAP 
AOO 
STATEMENT 



MOV 
MOV 
MOV 
TRAP 
AOO 
REV LEVEL 



SEQ 0234 



*T390FF,-(SP) 

«L,-(SP) 

SP,RO 

C$PNTX 

04, SP 



#T390N,-(SP) 

Ol.-CSP) 

SP,RO 

C$PNTX 

*4.SP 

#T39SBS t -CSP) 

#1,-(SP) 

SP.RO 

C$PNTX 

04, SP 



4T390FF.-CSP) 

♦l.-CSP) 
SP.RO 
C$PNTX 
*4,SP 



♦T390N f -(SP) 

♦i.-(SP) 

SP.RO 

C$PNTX 

♦4.SP 



OOOXXX" 

T39RL.-CSP) 

•T39MCL.-CSP) 
•2, -(SP) 
SP.RO 
CIPNTX 
*6,SP 



I "MICROCOOE REVISION LEVEL 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 
»D0 SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT • OK 
iSAVE CONTENTS OF TSSR 
jDEVICE FATAL ERROR DURING INIT 

TRAP C$ERDF 

.WORD 1103 

.WORD SFIERR 

.WORD SFIMSG 
lLOOP IF SELECTED 

TRAP CICLP1 

iSET UNIT NUMBER 

I SUBROUTINE NtEOS PACKET ADDRESS 
I ISSUE WRITE CHARACTERISTICS 



C" z 



o 
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SEQ 0235 



6621 
6625 
6626 



6627 

6628 
6629 
6630 
6631 
6632 
6633 
6634 
6635 
6636 
6640 



6641 

6642 
6643 
6644 
6645 
6646 
664 7 
6648 
6649 
6650 
6654 
6655 



6656 

6657 
6658 
6659 
6660 
6661 
6665 
6666 



6667 

6668 

6669 



075152 
075154 
075156 
075156 
075160 
075162 
075164 
075166 
075166 
075170 
075174 
075176 
075204 
075212 
075216 
075222 
075226 
075230 
075232 
075232 
075234 
075236 
075240 
075242 
075242 
075244 



075250 
075254 
075256 
075260 
075260 
075262 
075264 
075266 
075270 
075270 
075272 
075276 
075304 
075310 
075314 
075316 
075320 
075320 
075322 
075324 
075326 
075330 
075330 

075332 



103405 
010001 

104456 
002120 
005056 
012034 

104406 
005737 
001036 
112737 
112737 
012704 
010465 
004737 
103405 
010001 

104456 
002121 
077255 
012046 

104406 
012704 



004737 
103405 
010001 

104456 
002122 
005056 
012034 

104406 
CO5037 
013737 
012704 
004737 
103405 
010001 

104456 
002123 
005056 
012034 

104406 

016501 



BCS 
MOV 
ERRHRD 



150$s CKLOOP 



1501 

R0,R1 

ERRNO, WRTMSG, SFIMSG 



j BR, IF COMMAND ISSUED 
I SAVE CONTENTS OF TSSR 
jWRITE CHARACTERISTIC 



OK 



I LOOP IF SELECTED 



002226 

000200 
000010 
076000 
OOOOOO 
016336 



076011 
076010 



TST 


EXTFEA 


BNE 


174$ 


MOVB 


0200,T396S1 


MOVB 


♦10.TS96S0 


MOV 


♦T39PACKET.R4 


MOV 


R4,TSD6CR5) 


JS.x 


PC.CHKTSSR 


BCS 


1601 


MOV 


R0.R1 


ERRHRD 


ERRNO, T39N6A # PKTSSR 



AILED 

TRAP 

.WORD 

.WORD 

.WORD 



TRAP 
FEATURES 



CIERHRD 
1104 

WRTMSG 
SFIMSG 

CICLP1 
SWITCH 



076500 



160$: CKLOOP 

MOV #T39PK2,R4 



I CHECK FOR EXTENDED FEATURES SW 

I BR IF SWITCH IS ON 

iWRITE MISCELLANEOUS CONT/REAO STATUS 

iFUNCTION SELECTION BIT (TURN ON EXTFEA KW SWITCH) 

iWRITE SUBSYS MEM PACKET 

I ISSUE COMMAND 

jWAIT FOR SSR 

I BR, IF NO ERROR 

, ERROR, SAVE TSSR 

i TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 

TRAP C$ERHRD 
■WORD 1105 
.WORD T39N6A 
.WORD PKT5SR 



I LOOP IF SELECTED 

TRAP 
l SUBROUTINE NEEDS PACKET ADDRESS 

*************************** 



C»CLP1 



iWRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 

i 
j****************************************************************** 



010662 



002202 

002202 076520 

076500 

010662 



000002 



JSR 
BCS 
MOV 
ERRHRD 



170$: CKLOOP 

174$; CLR 
175$: MOV 
MOV 
JSR 
BCS 
MOV 
ERRHRD 



180$ j CKLOOP 



190$: MOV 



PC, WRTCHR 

170$ 

R0.R1 

ERRNO, WRTMSG, SFIMSG 



i ISSUE WRITE CHARACTERISTICS 
j BR, IF COMMAND ISSUED OK 
I SAVE CONTENTS OF TSSR 
iWRITE CHARACTERISTIC 



1 SCOPE LOOP 



FAILED 




TRAP 


C$ERHRD 


.WORD 


1106 


.WORD 


WRTMSG 


.WORD 


SFIMSG 



UNITN 

UNITN,T390SW 

♦T39PK2 f R4 

PC. WRTCHR 

180$ 

R0,R1 

ERRNO, WRTMSG, SFIMSG 



TRAP 



C$CLP1 



i SET TO DRIVE 
iSET UNIT NUT«ER 

I SUBROUTINE NEEDS PACKET ADDRESS 
i ISSUE WRITE CHARACTERISTICS 
tbR, IF COMMAND ISSUED OK 
I SAVE CONTENTS OF TSSR 
I WRITE CHARACTERISTIC FAILEO 

TRAP 
.WORD 
.WORD 
.WORD 



TS3R(R5),R1 



i LOOP IF SELECTED 



iGET TSSR STATUS 



TRAP 



C$ERHRD 
UC7 
WRTMSG 
SFIMSG 

C$CLP1 



D3 
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6670 


075336 


032701 


000100 


6671 


075342 


001414 




6672 


075344 








075344 


013746 


002202 




075350 


012746 


077014 




075354 


012746 


000002 




075360 


010600 






075362 


104415 






075364 


062706 


000006 


6673 


075370 


000137 


075724 


6674 


075374 








075374 


013746 


002202 




075400 


012746 


077060 




075404 


012746 


000002 




075410 


010600 






075412 


104415 






075414 


062706 


000006 


6675 


075420 


013701 


076024 


6676 


075424 


032701 


000004 


6677 


075430 


001013 




6678 


075432 








075432 


013746 


002202 




075436 


012746 


077176 




075442 


012746 


000002 




075446 


010600 






075450 


104415 






075452 


062706 


000006 


6679 


075456 


000412 




6680 


075460 








075460 


013746 


002202 




075464 


012746 


077123 




075470 


012746 


000002 




075474 


010600 






075476 


104415 






075500 


062706 


000006 


6681 


075504 


012737 


125252 076116 


6682 


075512 


112737 


OOOOOO 076011 


6683 


075520 


112737 


000024 076010 


6684 


075526 


012704 


076000 


6685 


075532 


010465 


OOOOOO 


6686 


075556 


012737 


000144 075774 


6687 


07554* 


0O4737 


016250 


6688 


075550 


016501 


000002 


6689 


075554 


032701 


000200 


6690 


075560 


001017 




6691 


075562 








075562 


C12727 


000250 




075566 


OOOOOO 






075570 


013727 


002116 




075574 


OOOOOO 






075576 


005367 


177772 




075602 


001375 






075604 


005367 


177756 




075610 


001367 




6692 


075612 


005337 


075774 


6693 


075616 


001352 




6694 


075620 


004737 


016336 



B7T 
BEQ 
PRINTX 



00FL.R1 

2001 

0T390F2,UNITN 



200$: 



JMP 
PRINTX 



210$t 



220$ t 



222$ J 



250$ 

0T390N2,UNITN 



MOV 


T396FR*6,R1 


BIT 


06IT2.R1 


BNE 


210$ 


PRINTX 


0T39WPN.UNITN 



BR 220$ 

PRINTX 0T39WRT.UNITN 



MOV 


0125252, T39BFR* 100 


MOVB 


00,TS96S1 


MOVB 


024,T39BS0 


MOV 


0T39PACKET.R4 


MOV 


R4, rsDe(R5) 


NOV 


♦100. .T390LY 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


BIT 


OSSR.Rl 


BNE 


225$ 


DELAY 


250 



225$ t 



DEC 


T390LY 


BNE 


22? $ 


JSR 


PC.CHKTSSR 



SEQ 0236 



jCHECK FOR OFF-LINE 




»BR. IF DRIVE IS ON-lINE 




I "DRIVE NUMBER XX IS OFF -LINE" 




MOV 


UNITN.-(SP) 


MOV 


0T390F2.-CSP) 
02,-CSP) 


MOV 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


06, SP 


jDO NOT TRY TO GET ANYMORE INFO 


a 


j "DRIVE NUMBER XX IS ON-LINE" 




MOV 


UNITN.-CSP) 


MOV 


0T390N2,~CSP) 


MOV 


02.-CSP) 


MOV 


SP,RO 


TRAP 


CiPNTX 


AOD 


06, SP 


jREAD EXTENOED STATUS CXSTO) 




iIS DRIVE WTITE PROTECTED 




,BR, IF WRITE PROTECTED 




1 "DRIVE NUMBER IS NOT WRT PRO" 




MOV 


UNITN.-(SP) 


MOV 


0T39WPN,-(SP) 


MOV 


02. -CSP) 


MOV 


SP,RO 


TRAP 


C$PNTX 


ADD 


06. SP 


i SKIP OVER 




j "DRIVE NUMBER XX IS WRT PRO" 




MOV 


UNITN.-CSP) 


MOV 


0T39WRT,-(SP) 


MOV 


02 , - 1 SP ) 


MOV 


SP,RO 


TRAP 


C$PNTX 


ADD 


06. SP 


iSET 1 LOC TO KNOWN VALUE 




lEXTENOfc'D TAPE STATUS 




jEXTENDFD TAPE STATUS 




tWRITE SUBSYS MEM PACKET 




I ISSUE COMMANO 




j SET UP DELAY ROUTINE 




,WAIT AWHILE FOR SSR T SET 




jSEE IF IT REALLY DID 




jJUST CHECK THAT BIT 




iBR, if SSR IS SET 




j DELAY ABOUT ,25 SEC 




MOV 


0250, (PC)* 


.WORD 





MOV 


LIDLY.CPO* 


,WORD 





DEC 


>6CPC^ 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


. -20 


I START DELAY COWT DOWN 




|BR, IF COUNTER IS NOT AT DONE 




iWAIT FOR SSh 





E3 
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6695 075624 


103405 




6696 075626 


010001 




6700 075630 






075630 


104456 




075632 


002124 




075634 


077255 




075636 


012046 




6701 075640 






075640 


104406 




6702 075642 


023727 


076116 


6703 075650 


001013 




6704 075652 






075652 


013746 


002202 


075656 


012746 


076721 


075662 


012746 


000002 


075666 


010600 




075670 


104415 




075672 


062706 


000006 


6705 75676 


000412 




6706 075700 






";75700 


013746 


002202 


r 75704 


012746 


076632 


075710 


012746 


000002 


075714 


010600 




075716 


104415 




075720 


062706 


000006 


6707 075724 


005237 


002202 


6708 075730 


023727 


002202 


6709 075736 


001402 




6710 075740 


000137 


075276 


6711 075744 






075744 


012746 


076550 


075750 


012746 


000001 


075754 


010600 




075756 


104415 




075760 


062706 


000004 


6712 075764 


000137 


000200 


6713 075770 






075770 


104432 




075772 


001736 




6714 






6715 






6716 






6717 






6718 






6719 






6720 






6721 075774 


OOOOOO 




6723 


076000 




6725 076000 






6726 076000 


140006 




6727 076002 


076010 




6728 076004 


OOOOOO 




6729 076006 


000012 




6730 076010 






6731 076010 


000 




6732 076011 


000 





BCS 2301 

MOV R0.R1 

ERRHRD ERRNO , T39NBA , PKTSSR 



230*s CKLOOP 



125252 



CMP T396FR ♦100.0125252 

BNE 240$ 

PRINTX *T39ETN,UNITN 



240$: 



BR 250$ 

PRINTX 0T39ETS.UNITN 



00000b 



250$ 



63$: 



INC 


'•JNITN 


CMP 


UN1TN.03 


BEQ 


63$ 


JMP 


175$ 


PRINTX 


0T39NFL 



645- 



JMP 
EXIT 



200 
TST 



J ♦ 

jLOCAL TEXT MESSAGES FOR TEST 

1 - 

I LOCAL STORAGE FOR THIS TEST 

I - 



T390LY: .WORD 





.•'.♦10>6177770 


T39PACKET: 




.WORD 


140006 


.WORD 


T39TAD 


.WORD 





.WORD 


10. 


T39TAD: 




T39BS0: .BYTE 





T39BS1: .BYTE 






SEQ 0237 



iBR, IF NO ERROR 






I ERROR, SAVE TSSR 






iTSSR NOT CORRECT AFTER 


WRT. MISCELLANEOUS 




TRAP 


C$ERHRD 




.WORD 


1108 




.WORD 


T39N6A 




.WORD 


PKTSSR 


lLOOP IF SELECTED 








TRAP 


C$CLP1 


iDID LOC GET OVER WRITTEN 




iBR, IF IT DIDN'T GET ETC. 




j "DRIVE DOESN'T HAVE EXT TAPE 


STATUS 




MOV 


UNITN.HSP) 




MOV 


«T3?ETN,-CSP) 




MOV 


#2, -'SP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


*6,SP 


j SKIP ^VER 






i"DRlvc HAS EXT TAPE STATUS" 






MOV 


UNITN.-CSP) 




MOV 


*T39ET. C ,-(SP) 




MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


C$PNTX 




ADD 


*6,SP 


iBUMP DRIVE NUMBER 






,AT ENC OF DRIVES YET 






i BR, IF NO MORE DRIVES 






iDO NEXT DRIVE 






iNEW LINE 








MOV 


#T39NFL,-(SP) 




MOV 


41,-CSP} 




MOV 


Si"' , RO 




TRAP 


CIPNTX 




ADD 


04, SP 


iRETURN TO SUPERVISUR 






lEXlT THIS SECTION 








TRAP 


CIEXIT 




.WORD 


L10076-. 



jDELAf COUNTER FOR TEST 

jCOMMANO JACKET FOR TEST 

jWRITt SUBSYSTEM MEM. CMO. ACK.CVC-1 

i ADDRESS OF CHARACTERISTICS BLOCK 

jSTAMTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
jBSELO BYTE 
iBSELl BYTE 
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F3 



6733 

6734 

6735 

6736 

6737 

6739 

6741 

6742 

6743 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6755 

6757 

6758 

6759 

6760 

6761 

6763 

6765 

6766 

6767 

6768 

6769 

6770 

6771 

6772 

6773 

6774 

6775 

6776 

6777 

6778 

6779 

6780 

6781 

6782 

6783 

6784 

6785 

6786 

6787 

6788 

6789 

6790 

6791 

6 792 

6793 

6794 

6795 



076012 
076014 
076016 



076500 
0765C0 
076502 
076504 
076506 



076510 
076510 
076512 
076514 
076516 
076520 

076530 
076532 



076540 
076542 
076544 
076546 



076550 
076553 
076632 
076721 
077014 
077060 
077123 
077176 
077255 
077331 

077421 
077473 
077545 
077554 
077563 



000000 
000000 



076500 

140004 
076510 
000000 
000012 



076016 
000000 
000400 
000000 
000000 
076530 
140012 
000000 



076540 
140005 
000000 
000000 
000400 



045 
123 
045 
045 
045 
045 
045 
045 
127 
103 

045 
045 
045 
045 
045 



116 
164 
116 
116 
116 
116 
116 
116 
122 
157 

116 
116 
101 
101 
116 



000 
141 
045 
045 
045 
045 
045 
045 
111 
156 

045 
045 
040 
040 
045 



T39BS2! .WORD 
. WORD 
T39BFRt ,BLKW 150. 



T39PK2} 



<,*10>6177770 





.WORD 


140004 




.WORD 


T39DTA 




.WORD 







.WORD 


10. 


T390TA: 








.WORD 


T396FR 




.WORD 







.WORD 


256. 


T39EAI: 


.WORD 





T39DSW; 


.WORD 







.■<.»10>617777Q 


T39PK3? 


.WORD 


140012 




.WORD 






j WRITE TAPE PACKET 

.-<.*10>£177770 
T39PK4? .WORD 140005 
T39WR: .WORD 

.WORD 
T39SIZ: .WORD 256. 



i ♦ 

j LOCAL 

\ - 



TEXT MESSAGES FOR TEST 



SEQ 0238 



{BSEL1 WORD 

,DATA 

I MESSAGE BUFFER 



{COMMAND PACKET FOR TEST 

jWRITE CHARA. MEM. CMNO. , ACK,CVC«1 

{ADDRESS OF SELECT DATA ELOCK 

I STARTING VALUE OF BLOCK SIZE 



» SELECT DATA BLOCK 

, ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

lEAI BIT WORD 

tDRIVE SELECT WORD FTC 

{MESSAGE BUFFER RELEASE COMMAND 
{NOT USED 



{WRITE. ACK, CVC-1 COMMANO 
{ADDRESS OF WRITE BUFFER 
{MORE ADDRESS OF WRITE BUFFER 
{SIZE OF RECORD 



T39NFL 
T39NE: 
T39ETS 
T39ETN 
T390F2 
T390N2 
T39WRT 
T39WPN 
T39NBA 
T39SSR 

T39SFS 
T39SBS 
T390FF 
T390N: 
T39HCL: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



#N' 

Stand-alone Configuration 

#N*A Extended Tap* Statu* 

Extended T 

Drjva Number 

Drlva Number 

Drive Number 

Drive Number 



*N*A 
*N#A 
#N*A 
*N*A 
*N*A 
WRITE 



Typaout Not Executed' 
Availiabla, Driva Number *02 
Statu* NOT Availiabla, Drive Number 
*02*A la Off-Line 1 
*02*A la On-Lina' 
*02*A la Write Protected 1 
*02*A la NOT Write Protected* 



*D2 



SUBSYSTEM MEMORY Command Not Acceptad' 



Contente of TSSR Incorrect After WRITE SUBSYSTEM MEMORY 



**N**A State 
*N*A State 
*A OFF' 
*A ON ' 
*N**A M7196 



Of Extended Features Switch 
Of Buffering Switch 



Microcode Revision Level 



'♦<02 



G3 
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SEQ 0239 



6796 
6797 
6798 
6799 
6800 
6801 
6802 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6810 
6811 
6812 
6813 
6814 
6815 
6816 
6817 
6818 
6819 
6820 
6821 
6822 
6823 
6824 



6825 
6826 
6827 
6828 
6829 
6830 
6831 
6832 
6833 
6834 
6835 
6836 
6837 
6338 
6839 
6840 
6841 
6842 
684 3 
6d44 
6845 
6846 
6847 
6848 
6849 
6850 



077640 000000 



077642 
077644 
077644 
077650 
077654 
077660 
077664 
077666 
077672 
077674 
077676 
077700 



077702 

077730 
077730 
077730 



T39RU 



i * 



.EVEN 
.WORD 
.EVEN 
.EVEN 



000000 



012701 076000 

012721 140006 

012721 076010 

005021 

012721 000006 

005021 

005021 

005011 

000207 



I LOCAL STORAGE FOR THIS TEST 
J - 

T390AT; .WORD 



T39REST? 




SAVREG 




MOV 


0T39PACKET.R1 


MOV 


0140006, (RD* 


MOV 


*T39TAD,(R1)* 


CLR 


CRD* 


MOV 


•6. .CRD* 


CLR 


CRD* 


CLR 


CRD* 


CLR 


CRD 


RTS 


PC 



{LOGICAL RESPONSE TO QUESTION 

I SAVE THE REGISTERS 

jSTART OF THE PACKET 

{WRITE SUBSYSTEM MEM, WITH ACK,CVC*1 

j ADDRESS OF DATA BLOCK 

l EXTENDED ADDRESS 

I SIZE OF DATA BLOCK IN BYTES 

j CLEAR BSELO AND BSEL1 

jCLEAR SEL2 

t CLEAR DATA AREA 

{RETURN 



103 



104401 



157 



{LOCAL TEXT MESSAGES FOR TEST 

i - 

156 TST39ID: .ASCIZ ' Confi curat ion Tye*out' 
.EVFN 
ENDTST 



i ♦ 



.SBTTL TEST 12: SCOPE LOOPS 



L 10076: 



TRAP CSETST 



THIS IS A STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT "5C0PE 
LOOPS" USEFUL FOP DEBUGGING BASIC REGISTER ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE NORMAL 
"LOOP ON ERROR" OR "LOOP ON TEST (SUBTEST )" FACILITIES DON'T 
SEEM TO ALLOW THE OPERATOR TO ZERO IN A PROBLEM IN THE EARLY 
TE5TS CLE, THE HARDWARE MAY NOT BE RESPONDING TO A REGISTER 
ACCESS, CAUSING A BUS ERROR TRAP. EVEN THOUGH THE DEVICE ADDRESS 
SELECTED BY THE PROGRAM MATCHES THE CONFIGURATION SET UP IN THE 
HARDWARE DIP SWITCHES), THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE? 

CODE SCOPE LOOP 

HELP. PRINT THIS MENU. 

1 TSBA READ ACCESS 

2 TSSR READ ACCESS 

3 INITIALIZE (TSSR WRITE ACCESS) 

4 TSDB HIGH BYTE WRITE ACCESS 



H3 
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6851 
6852 
6853 
6854 
6855 
6856 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 



6870 

6871 
6872 
6873 
68 74 
6875 
6876 
6877 
6878 
6879 
6880 
6881 
6885 



6886 
6887 
6888 
6889 
6890 
6891 
6892 
6693 
6894 
6895 



6896 
6897 

6898 



6899 

6*00 
6901 



077732 

077732 

077732 

077732 

077734 

077736 

077742 

077744 

077750 

077754 

077760 

077762 

077766 

077772 

077774 

077776 

077776 

100000 

100002 

10OOO4 

100006 

100012 

100016 

100022 

100024 

100026 

100032 

10O034 

100040 

100042 

100042 

100046 

100052 

100054 

100056 

100062 

100066 

100070 

100070 

100074 

100076 

100102 

100110 



104421 
001403 
012700 
000402 
012700 
004737 
004737 
103402 
000137 
004737 
103405 
010001 

104455 
002261 
003652 
012034 
012700 
012701 
004737 
005700 
001760 
020027 
001015 
005737 
001012 

012746 
012746 
010600 
104417 

062^06 
000137 
010004 

012700 
104441 
005037 

052737 
001005 
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SEQ 0240 



8 



TSD8 LOW BYTE WRITE ACCESS 
TSDB MAINTENANCE -MODE WORD WRITE ACCESS 
TSDBX (TSSR HIGH BYTE) WRITE ACCESS 
(EXTENOED FEATURES SWITCH MUST BE ON 
TO USE SELECTION CODE 7) 
EXIT (RETURN TO SUPERVISOR) 



FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN, TYPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL, 



101325 

101372 
016510 
020500 

100446 

015774 



It: 
100$ 



2$; 



BGNTST 

RFLAGS RO 

BEO 1$ 

MOV 0T40NE.R0 

BR 100* 

MOV OTST40ID.R0 

JSR PC.TSTSETUP 

JSR PC.CHKMAN 

BCS 21 

JMP 64$ 

JSR PC.SOFINIT 

BCS 5$ 

MOV R0.R1 

ERRDF ERRNO , SFIERR , SFIMSG 



100464 
000010 
020256 



000007 
002226 



101247 
000001 



000004 
077766 



000300 

100456 
000100 



5*i 



MOV 


OSCMENU.RO 


MOV 


0B..R1 


JSR 


PC.GETSEL 


TST 


RO 


BEQ 


2$ 


CMP 


R0.07 


BN£ 


3$ 


TST 


EXTFEA 


BNE 


3$ 


PRINTF 


0EXFM5G 



3lj 



177560 



JMP 21 
MOV R0.H4 
SETPRI 0PRI06 



CLR TTION 

BIT 0100.QOTTICSR 

BNE 41 



iGET OPERATOR 



T12: 

FLAGS 



iBR. IF OK 
I "TEST NOT 
i JUST EXIT 



TO RUM 
EXECUTED" 
IF NOT 



TRAP 



CJRFLA 



i TEST ID MESSAGE 

I DO THE COMMON SETUP 

j SEE IF MANUAL INTERVENTION ALLOWED 

I CARRY SET IF INTERVENTION ALLOWED 

lEXlT IF NO MANUAL INTERVENTION 

i DO A SOFT INIT 

t BRANCH IF OK 

I CONTENTS OF TSSR REGISTER 

i REPORT FATAL ERROR 

TRAP CIERDF 
.WORD 12C1 
.WORD SFIERR 
.WORO SFIMSG 

i MENU OF SCOPE LOOP SELECTIONS 

j MAXIMUM ALLOWED SELECTION 

iGO GET THE OPERATORS SELECTION 

,WAS ZERO SPECIFIED ? 

j REPEAT MENU IF YES. 

jEXTENDED TSSR ? 

I BRANCH IF NOT 

, CHECK FOR EXTENOED FEATURES SET 

iBR. IF IT IS ON 

l WARN OPERATOR EXTENOED 



I GO BACK TO BASIC MENU 
iSAVE THE MENU SELECTION 
iRAISE THE PRIORITY 

j ASSUME INTERRUPTS ARE ENABLED 
jARE TTI INTERRUPTS ON ? 
I BRANCH IE YfeS 



FEATURES CLEAR 

MOV iKXFMSG, -CSP) 

MOV #1.-CSP) 

MOV SP.RO 

TRAP CIPNTF 

AOD 04 , SP 


MOV 
TRAP 


0PRI06.R0 
CiSPRI 



13 
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SEQ 0241 



6902 


100112 


005237 


100456 




INC 


TTION j 


6903 


100116 


05273? 


000100 177560 


BIS 


*100,B*TTICSR » 


6904 


100124 


012701 


000060 


4$: 


MOV 


♦TTIVEC.Rl i 


6905 


100130 


011137 


100460 




MOV 


CRD.TVECSAV j 


6906 


100134 


012721 


100360 




MOV 


•601, CRD* i 


6907 


100140 


0.U137 


100462 




MOV 


CRD.TPRISAV i 


6908 


100144 


012711 


000300 




MOV 


*PRI06,CR1) i 


6909 


100150 
100150 
100154 


012700 
104441 


000000 




SETPRI 


OPRIOO j 


6910 


100156 


006304 






ASL 


R4 t 


6911 


100160 


0O0174 


100164 




JMP 


Q6$(R4) j 


6912 


100164 


077766 




6$: 


.WORD 


2$ i 


6913 


100166 


100206 






.WORD 


10$ , 


6914 


100170 


100216 






.WORD 


15$ i 


6915 


100172 


100230 






.WORD 


20$ i 


6916 


100174 


100250 






.WORD 


25$ , 


6917 


100176 


100274 






.WORD 


30$ j 


6916 


100200 


100320 






.WORD 


35$ j 


6919 


100202 


100340 






.WORD 


40$ | 


6920 


100204 


100452 






♦ WORD 


65$ i 


6921 














6922 














6923 


100206 


105065 


000000 


10$: 


CURB 


TSDBCR5) i 


6924 


100212 


011500 




12): 


MOV 


(R5).R0 j 


6925 


100214 


000776 






BR 


12$ j 


6926 














6927 














6928 


100216 


012703 


000002 


15$: 


MOV 


«TSSR,R3 t 


6929 


100222 


060503 






ADD 


R5.R3 i 


6930 


100224 


011300 




18$: 


MOV 


(R3),R0 i 


6951 


100226 


000776 






BR 


18$ i 


6932 














6933 


100230 


004737 


020174 


201: 


JSR 


PCGETPAT j 


6934 


100234 


010001 






MOV 


R0.R1 i 


6935 


100236 


012703 


000002 




MOV 


*TSSR,R3 j 


6936 


100242 


060503 






ADC 


R5.R3 , 


6937 


100244 


010113 




22$: 


MOV 


R1.CR3) i 


6938 


100246 


000776 






BR 


22$ i 


6939 














6940 














6941 


100250 


105065 


000000 


25$: 


CLRB 


TSDBCR5) i 


6942 


100254 


004737 


020X74 




JSR 


PC.GETPAT , 


6943 


100260 


010001 






MOV 


R0.R1 i 


6944 


100262 


012703 


000001 




MOV 


♦TSDBH.R3 i 


6945 


100266 


060503 






ADD 


R5,R3 j 


6946 


100270 


110113 




271: 


MOVB 


R1.CR3) i 


694 7 


100272 


000776 






BR 


27$ j 


6948 














6949 














6950 


100274 


105065 


000000 


30$: 


CLRB 


TSD8CR5) j 


6951 


100300 


004737 


020174 




JSR 


PC.GETPAT { 


6952 


100304 


010001 






MOV 


R0,R1 , 


6953 


100306 


012703 


000000 




MOV 


0TSDB.R3 i 


6954 


100312 


060503 






ADD 


R5.R3 , 


6955 


100314 


110113 




32$: 


MOVB 


R1.CR3) i 


6956 


100316 


000776 






BR 


32$ j 



FLAG SET IF INTERRUPTS OFF 

ENABLE INTERRUPTS 

START Of TTI VECTORS 

SAVE THE CURRENT TTI VECTOR 

SET NEW INTERRUPT ROUTINE 

SAVE THE VECTOR PRIORITY 

USE PRIORITY SIX 

LOWER INTERRUPT BR LEVEL 

MOV $PRIOO,R0 
TRAP C$SPRI 

CONVERT TO WORD OFFSET 

JUMP TO PROPER LOOP 

RETYPE THE MENU 

TSBA READ ACCESS 

TSSR READ ACCESS 

rSSR WRITE ACCESS 

TSD8 HIGH BYTE WRITE ACCESS 

TSD6 LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE MODE 

TSDBX WRITE ACCESS 

LEAVE THE TEST 



ENTER MAINTENANCE MODE 
READ TSBA REGISTER 
LOOP UNTIL HALTED 



ADDRESS OF TSSR REGISTER 
POINT TO TSV05'S REGISTERS 
READ TSSR REGISTER 
LOOP UNTIL STOPPED 

READ THE DATA PATTERN 

DATA PATTERN FOR LOOP 

ADDRESS OF TSSR 

POINT TO TSV05'S REGISTERS 

WRITE DATA TO TSSR 

LOOP 



ENTER MAINTENANCE MODE 

READ THE DATA PATTERN 

DATA PATTERN FOR LCOP 

ADDRESS OF HIGH BYTE Uf' TSDB 

POINT TO TSV05'S REGISTERS 

WRITE THE DATA TO TSDB, HIGH BYTE 

LOOP UNTIL STOPPED 



ENTER MAINTENANCE MOOE 

READ THE DATA PATTERN 

DATA PATTERN FOR LOOP 

ADDRESS OF TSSR 

POINT TO TSV05«S REGISTERS 

WRITE DATA TO TSSR. lOW BYTE 

LOOP UNTIL HALTED BY OPERATOR 



J" 7 



o 



TSV5 - HARDWARE TESTS 
TEST 12: SCOPE LOOPS 



6957 

6958 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 

69 72 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 

6981 

6982 

6983 

6984 

6985 

6986 

6987 

6988 

6989 

6990 

6991 

6992 

6993 

6994 



6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
70O3 
7004 
7005 
7C06 
7007 
7006 
7009 
7010 
7011 



100540 
100344 
100546 
100352 
100354 
100356 



100 360 
100362 
10036* 
100372 
100376 
100400 
10O406 
100412 
10O420 
10O426 
10O432 
1004*4 
100442 
10O444 

10O446 
100446 
10O446 
10O450 
100452 



10O456 
100460 
100462 



010046 
113 7 00 
042700 
122700 
001021 
012766 
005066 
C13737 
013737 
005737 
001403 
042737 
012600 
000002 



104432 
000736 
000137 
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100320 004737 020174 

100324 010001 

100326 012703 000000 

100332 060503 

100334 010113 

100336 000*76 



004737 020174 

01OO01 

012703 000003 

060503 

110113 

000776 



000000 
000000 
000000 



177562 
000200 
000015 

077766 
000004 
10046C 
1004C2 
100456 



000002 

000060 
000062 



000100 177560 



OOOHOO 



35$: 



37$ } 



40$; 



42$: 



! PROCESS CONSOLE INTERRUPTS 
l - 



JSR 


PC.GETPAT 


MOV 


R0,R1 


MOV 


0TSDB.R3 


AOD 


R5.R3 


MOV 


Rl,CR3) 


BR 


37$ 


JSR 


PC.GETPAT 


MOV 


R0.R1 


MOV 


*TSSRH,R3 


ADD 


R5.R3 


MOVB 


R1.CR3) 


BR 


42$ 



60$ s 



61$ 



64$ 
63$ 



65$: 



MOV 

MOVB 

BIC 

CMPB 

BNE 

MOV 

CLR 

MOV 

MOV 

TST 

BEQ 

BIC 

MOV 

RTI 



EXIT 



JMP 



RO.-(SP) 

B*TTIBFR,RO 

«200,RO 

$15. RO 

61$ 

02$.2CSPD 

4CSP) 

TVFXSAV.tfOTTIVEC 

TPRISAV.S0TTIVEC*2 

TTION 

61$ 

noo.aoTTicsR 

(SP)*,R0 



TST 



200 



j ♦ 

jLOCAL STORAGE FOR THIS TEST 

I - 



TTION; 

TVF.CSAV; 

TPRISAV? 



\ ♦ 



.WORD 
, WORD 
♦WORD 



SEQ 0242 



jREAD THE DATA PATTERN 

I DATA PATTERN FOR LOOP 

i SELECT TSOO 

jPOINT TO TSVOS'S REGISTERS 

j WRITE THE DATA PATTERN 

jLOOP UNTIL HALTED 

I READ THE DATA PATTERN 

j SAVE THE DATA PATTERN 

»BYTE ADDRESS Of TSSR, HIGH BYTE 

jPOINT TO TSVOJ'S REGISTERS 

iWRITE THE DATA TO REGISTER 

jLOOP UNTI^ HALTED 



i SAVE WORK REGISTER 

,GET THE l oc .RATOR INPUT 

I STRIP OFF PARITY BIT 

iIS IT A CARRIAGE RETURN ? 

iJUST EXIT IF NOT 

I RETURN TO MASTER MENU 

iFORCE PRIORITY ZERO 

iRESTORE SUPERVISOR VECTOR 

iRESTORE SUPERVISOR PRIORITY 

j ARE SUPERVISOR INTERRUPTS ENABLED ? 

jBRANCH IF YES 

I TURN OFF TTI INTERRUPTS 

jRESTORE REGISTER 

I RETURN FROM INTERUPT 



jEXIT THE TEST 



iRETURN TO SUPERVISOR 



TRAP 
.WORD 



C$EX1^ 
L10077 



jWORD SET 
iSAVE TTI 
iSAVE TTI 



IF SUPERVISOR 

VECTOR 

PRIORITY 



TTI INTER OFF 



j MENU FOR OPERATOR 
j - 



INPUT FOR SCOPE LOOPS 



100464 100516 100571 100617 



.EVEN 
SCMENUi .WORD 



1$, 2$, 3$, 4$. 5$, 6$ 



I<3 



TSV5 - HARDWARE TESTci MACRO M12O0 20-MAR-84 08{26 PAGE 28-10^ 



TEST 12; SCOPE LOOPS 



SEQ 0245 



701? 
7013 
7014 
7015 
7016 
7017 
7016 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 



7032 



100500 100770 101026 101074 



100516 
100571 
100617 
100643 
100667 
100731 
1007/0 
101026 
101074 
101143 
101206 
101207 
101247 
101325 
101372 

101406 
101406 
101406 
101410 



012 
012 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
000 
124 
045 
1<?3 
123 



104401 



123 
Oil 
061 
062 
063 
064 
065 
066 
067 
070 

171 
116 
164 
143 



105 
060 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 

160 
045 
141 
157 



1* 
2$ 
3* 

4$ 
5* 

et 

7t 
81 
9t 

lOt 

11$ 

12* 

GXFM5G: 

T40NE: 

TST40I0 



.WORD 7*,8*,9*,10*,il*.12i,0 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 
ENDTST 



ENDMOD 



<12>' SELECT SCOPE LOOP FROM FOLLOWING OPTIONS:' 

<12>' Display Th i a M*nu' 

1 TS8A Read Acceet' 

2 TSSR Read Access' 

3 Initialize (TSSR Write Accc-as)' 

4 TSDB High Byto Write AcceeC 

5 TSD8 Low Byte Write Access' 

6 TSOB Maintenance Mode Write Access' 

7 TSDBX (TSSR High Byte) Write Access 

8 Return to Diagnostic Supervisor' 

Type RETURN To Stop Scope Loops' 

«N*A *** Extended Features Switch Not On *** ' 

Stand-alone Scope Loops Not Executed' 

ASCIZ ' Scope Loops 4 



L10077; 



TRAP 



CJETST 



L3 
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SEQ 0244 



1 

7 
12 
18 

19 101410 
101410 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

31 101410 
101410 
101412 
32 

33 101412 
101412 
101414 
101416 
101420 

34 101422 
101422 
101424 
101426 
101430 

35 

36 101432 

101432 

37 101432 

38 101466 

39 101512 
40 



000010 



000031 
101432 
160010 
177776 

001031 
101466 
000000 
000776 



10^ 
111 
111 



TSV6;: 



105 
116 
116 



.TITLE TSV6 - PARAMETER CODING 



BUNMOD TSV6 



.SBTTL HARDWARE PARAMETER CODING SECTION 



THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR Ai- DATA STRUCTURES, THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LIHARD: 



BGNMRD 

.WORD L10100-LIHARD/2 



L10100: 
126 HPM1 
124 HPM2 
124 HPH3 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

iGPRMO 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



HPM1. 0,0, 100010 ,177776, YES 

TICODE 

HPM1 

TILOLIM 

TIHILIM 

HPM2,2,0,0,776,YES 

T I CODE 

HPM2 

TILOLIM 

TIHILIM 

HPM3, 4, 0,340, 0,7. YES 



DEVICE ADDRESS (TSBA/TSDB) 
INTERRUPT VECTOR » 
'NTERRUPT PRIORITY 



j GET TSBA/TSDB REGISTER ADDRESS 



iGET VECTOR ADDRESS. 



{GET INTERRUPT PRIORITY 
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M3 



SOFTWARE PARAMETER CODING SECTION 

42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 101542 

101542 000003 

101544 
53 
54 101544 

101544 001130 

101546 101602 

101550 177777 
55 
56 
57 101552 



SEQ 0245 



101552 
58 

59 101552 

60 101602 

61 101632 

62 101662 
63 

64 

65 

66 

67 

68 

69 

70 

71 

72 101712 

73 

74 101712 

75 

77 

79 102400 

102400 
102402 
102404 

80 102404 
81 



105 
111 
120 
120 



116 
116 
105 
105 



102400 



000000 
000000 



000001 



.SBTTL SOFTWARE PARAMETER CODING SECTION 



♦ + 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACPOS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSSOFT; 



BGNSFT 

.WORD L10101-LJS0FT/2 



L10101: 



101 SPM1 

110 SPM4 

122 SPM6 

122 SPM7 



GPRML 

GPRML 

.WORD 

.WORD 

.WORD 

GPRMO 

GPRMO 

ENDSFT 

.EVEN 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.SBTTL 



SPM1. 0,-1, YES 

SPM4, 2,-1, YES 

TICODE 

SPM4 

-1 

SPM6.4.D. 7777,0, 7777, YES 

SPM7 , 6 , D , 7777 , , 7777 , YES 



•ENABLE TRANSPORT TESTS 
♦INHIBIT ITERATIONS 
'PER TEST ERROR LIMIT 
'PER UNIT ERROR LIMIT 
PATCH AREA 



; GET TRANSPORT TEST FLAG 
i GET ITERATION CONTROL. 



t GET LOCAL ERROR LIMIT 
l GET GLOBAL ERROR LIMIT 



FINALLY A GENEROUS PATCH AREA. 

ANO AN ADJUSTMENT TO ACCOUNT FOR THE "LASTAD BIT7" HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C). 



PATCH: j 



LAST; 



.8LKW 32 

.-.!377*1 

LASTAD 
.-VEN 
.U«-f*D 

Ef r . 100 



,SET LAST USED ADDRESS, 



N 



6 
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SYM80L TABLE 



SEQ 0246 



ACDSSR 

ADR 

AM6TSS 

ASSEMB 

A1716 

BAODAT 

BADSSR 

BDVPCR 

BENBSW 

BIE 

BITO 

BITOO 

BIT01 

BIT02 

BIT03 

B.T04 

MT05 

BIT06 

BIT07 

BIT08 

BIT09 

BTT1 

BIT10 

nun 

BIT12 

BIT13 

BIU4 

BIT15 

BIT2 

BIT3 

BIT4 

B1T5 

BIT6 

BIT7 

BIT8 

BIT9 

BOE 

BRINIT 

BSELO 

BSEL1 

CHKAMB 

CMKMAN 

CHKTSS 

CKDROP 

CKEMAX 

CKMSG 

CKMSG2 

CKRAM 

CKRAM2 

CMOPKT 

CMPt'EM 

CONFIG 

COUNT 

CSRADD 

CYAB 

CTflBE 

CTABN 



012126 

000020 

006635 

000010 

000003 

003156 

015700 

177520 

002230 

040000 

000001 

000001 

000002 

000004 

000'' 10 

0000.*? 

000040 

000100 

000200 

000400 

001000 

000002 

002000 

03400C 

C10000 

020000 

040000 

100000 

C 00004 

000010 

000020 

000040 

000 10( 

000200 

000400 

001000 

000400 

004457 

000<VO 

000C\? 

0!f r *4 
020! i'.,0 
0a6' , .:.6 

01 T?.OZ 
0171 >2 
011360 
011500 
011114 
011224 
021260 
017660 
017250 
002310 
002206 
003164 
0031/6 
003164 



u 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



G 



G 
G 
G 
G 
G 



C$AU 

C*AUTO 

C$BRK 

C$BSEG 

C*BSU6 

C*CEFG 

C*CLCK 

CKLEA 

CICt.OS 

C$CLP1 

CJCVEC 

CIDCLN 

C*D0DU 

C*DRPT 

CIOU 

CIEDIT 

r$ERDF 

CIERHR 

CIERRO 

C*ERSF 

CJERSO 

CiESCA 

C$ESEG 

CiESUB 

CiETST 

CIEXIT 

CIGETB 

C*GETW 

CtGMAN 

C*GPHR 

C*GPL0 

CIGPRI 

C*INIT 

CIINLP 

CIMANI 

C$MEM 

~$MSG 

C*OPEN 

CIPNTB 

C4PNTF 

ClPNTS 

CIPNTX 

CIQIO 

C*RD6U 

C»R£FG 

CIRESE 

CtREVI 

CIRFLA 

CIRPT 

OSEFG 

CISPRI 

CISVEC 

CITPRI 

DATA 

DATA5C 

DEBUGM 

OtVCNT 



000052 

000061 

000022 

000004 

000002 

000045 

000062 

000012 

000035 

000006 

000036 

000044 

000051 

000024 

000053 

000003 

000055 

000056 

000060 

000054 

000057 

000010 

000005 

000003 

000001 

000032 

000026 

000027 

000043 

000042 

000030 

000040 

000011 

000020 

000050 

000031 

000023 

000034 

000014 

000017 

000016 

000015 

0O0377 

0OOOC7 

00004 7 

000033 

000003 

000021 

000025 

000046 

C 00041 

000037 

000013 

002312 

020232 

01163? 

002220 



DEVDRO 
DEVNRD 
DEVNXR 
DEVONL 
DEVSUM 
DFPTBL 
DIAGMC- 
DICEB • 
DSBINT 
DUAD12 
UUFLG 
DUMMY 
EF.CON- 
EF.NEW- 
EF. PUR- 
EE. RES- 
EF.STA- 
EMAXDU 
EN 

ENAINT 
ENVIRN 
EPRTSW 
EPRT1 
EPRT2 
ERCM 
ERRHI 
ERRK 
ERRLO 
ERRNO - 
ERRVEC- 
ERTABE 
ERTABL 
ESUM 
EVL 

EXBCNT- 
EXFMSG 
EXPBRE 
EXPO 
EXPGOT 
EXPGT2 
EXPMSG 
EXPREC 
EXTA 
EXTEND 
EXTFEA 

EIEND • 

EtLOAD- 

FATERR- 

FATFLG 

FERCM 

FIFEXP 

riFlMS 

FIF2MS 

FTLLME 

FN0IN1 

FORCER 

FRE£ 



023424 

023343 

023261 

023211 

023154 

002156 

000000 

000001 

016204 

004643 

003112 

003062 

000036 

000035 

000034 

000037 

000040 

016777 

000000 

016152 

020630 

002200 G 

006360 

006360 

011733 

002236 G 

016756 

002240 G 

002261 

000004 G 

003376 

003176 

016760 

000004 G 

0OOO10 

101247 

015502 G 

002232 G 

004533 

004567 

002322 G 

015474 S 

005772 

005770 

00^226 G 

002100 

000035 

000060 

002222 G 

011722 

012170 G 

012242 

012311 

017422 

004215 

002176 G 

003124 



FREErU 


003130 


FRESIZ 


003126 G 


FUSI 


004117 


FIAU - 


000015 


FIAUTO- 


000020 


F*BGN • 


000040 


FICLEA- 


000007 


F*DU ■ 


• 000016 


FIEND ' 


000041 


F$HARD' 


• 000004 


F$HW « 


• 000013 


F$INIT» 


• 000006 


F$JMP - 


■ 000050 


FIMOD « 


■ 000000 


FtMSG ■ 


■ 000011 


FIPROT- 


■ 000021 


FIPWR - 


■ 000017 


F$RPT « 


• 000012 


FISEG ■ 


■ 000003 


FISOFT' 


■ 000005 


F$SRV ■ 


• 000010 


F$SUB ■ 


■ 000002 


F*SW ■ 


■ 000014 


F$TEST> 


* 000001 


GDDAT 


003160 G 


GERR^A 


002174 G 


GETPAT 


020174 G 


GETSEL 


020256 G 


GICNTO' 


- 000200 


GIDELM- 


• 000372 


G$DISP- 


• 000003 


GIEXCP- 


- 000400 


GIHILI 


■ 000002 


GILOLI 


- 000001 


GINO 


• 000000 


GtOFFS 


■ 000400 


GIOFSI 


- 000376 


GIPRMA 


• 000001 


GIPRMO 


- 000002 


GIPRML 


- 000000 


GIRADA 


• 000140 


GIRADB 


- 000000 


G^RADD 


- 000040 


GIRADL 


• 000120 


GIRADO 


- 000020 


GiXFER 


• 000004 


G»YES 


- 000010 


HIADDR 


- 001400 


HOE 


■ 100000 G 


HPM1 


101432 


HPM2 


101466 


HPM3 


101512 


IBE 


- 010000 G 


IDU 


- 000040 G 


IER 


- 020000 Q 


I FAULT 


004256 


INCERK 


017044 



INTCPC 


016150 


INTFLA 


016145 


INTMA5 


016144 


INTR 


016216 G 


INTREC 


002224 G 


INTVEC 


016146 


INTX 


004300 


INVERT 


021206 G 


IOKCKI- 


000200 


IOKSTP- 


000001 


IPRI 


002212 G 


ISR 


• 000100 G 


IVF.C 


002210 G 


IXE 


004000 G 


ItAU - 


000041 


IIAUTO- 


000041 


IICLN ■ 


000041 


I*DU » 


000041 


IIHRD - 


000041 


I$INIT- 


• 000041 


IIMOD ■ 


» 000041 


I$MSC ■ 


• 000041 


I*PR0T« 


• 000040 


IIPTAB" 


■ 000041 


II PUR * 


• 000041 


IJRPT - 


■ 000041 


IISEG • 


■ 000041 


1ISETU' 


• 000041 


I*SFT • 


■ 000041 


ItSRV ■ 


■ 000041 


XI SUB ■ 


■ 000041 


IITST ■ 


• 000041 


J$JMP - 


■ 000167 


KIPARO* 


• 172340 


KIPAR1- 


• 172342 


KIPAR2« 


• 172344 


KIPAR3" 


172346 


KIPAR4 


• 172350 


KIPAR5« 


• 172352 


KIPAR6' 


• 172354 


KIPAR7 


• 172356 


KIPDRO 


• 172300 


KIPDR1 


■ 172302 


KIPDR2 


• 172304 


KIPDR3 


• 172306 


KIPDR4 


• 17231^ 


KIP0R5 


- 17231c 


KIPDR6 


• 172314 


KIPDR7 


• 172316 


KTENAB 


003134 G 


KTFLG 


003132 G 


KTINIT 


021054 


KTOFF 


017274 


KTON 


017256 


LERRMA 


002172 G 


LERRNO 


- 000000 


LISTAL 


- 000001 



B4 
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SYMBOL TABLE 



SEQ 0247 



LOE 

LOOPCN 

LOOPCO 

LOOPFL 

LOT 

LIACP 

LIAPT 

L$AU 

LIAUT 

LIAUTO 

LtCCP 

LICLEA 

L*CO 

LIDEPO 

LIDESC 

LIDESP 

LIOEVP 

l.JOISP 

LIDLY 

LIDTP 

LIDTYP 

LtOU 

LIOUT 

LIOVTY 

LIEF 

LIENVI 
LIETP 

liexpi 

LIEXP4 
LIEXP5 

LIHAflO 
LIHIME 
LIMPCP 
LIHPTP 

Ling 
liicp 

LIINIT 

LILADP 

LILAST 

LILOAO 

LILUN 

LIMREV 

LINAME 

LIPRIO 

LIPROT 

LIPRT 

LIREPP 

LIREV 

LIRPT 

LISOFT 

LISPC 

LISPCP 

LISPTP 

LISTA 

L*SW 

LITEST 

LITIML 



040000 

002216 

013126 

003162 

000010 

002110 

002036 

022400 

002070 

022604 

002106 

022664 

002032 

002011 

003410 

002076 

002060 

002124 

002116 

002040 

002054 

022476 

002072 

003402 

002052 

002044 

002102 

002046 

002064 

002066 

101412 G 

002120 G 

002016 

002022 

002156 

002104 

021556 

002026 

102404 

002100 

002074 

002050 

00200C 

002O42 

021546 

002112 

002062 

002010 

022712 

101544 

002056 

002020 

002024 

002030 

002166 

002114 

002014 



G 
G 

G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



LIUNIT 

L 10000 

L10001 

L 10002 

L10003 

L10004 

L10005 

L10006 

L10007 

L10010 

LlOOli 

L10012 

L10013 

L10014 

L10015 

L 10016 

L10017 

L 10020 

L10021 

L 10022 

L 10023 

L 10024 

L 10025 

L 10026 

L10030 

L10031 

L10032 

L10033 

L10034 

L 10035 

L10036 

L10037 

L10040 

L10041 

L 10042 

L10043 

L 10044 

L10045 

L 10046 

L10047 

L10050 

L 10051 

L 10052 

L 10053 

L10054 

L 10055 

L 10056 

L 1005 7 

L 10060 

L10061 

L10062 

L 10063 

L'0064 

L10065 

1. 10066 

L1006: 

L10070 



002012 G 

002164 

002176 

005766 

012044 

012062 

012100 

012106 

012124 

012142 

012166 

012240 

012410 

013124 

013752 

013774 

015500 

015506 

015514 

015526 

015550 

015576 

015736 

016246 

022330 

022474 

022602 

022662 

022710 

023152 

024454 

026446 

024750 

025174 

032042 

027022 

027312 

027610 

030242 

0546^2 

032376 

0327 70 

033376 

040424 

035716 

036650 

050536 

040750 

042140 

043500 

044056 

045330 

046374 

052016 

062644 

054022 

055310 



L10071 
L10072 
L10073 
L10074 
L10075 
L10076 
L10077 
L10100 
L10101 
MEMAOO 
MEMCK 
MENASC 
MENERR 
MENRES 
MIMENU 
MMVEC • 
MSA.FR- 
MSA. NO- 
MSA. NR- 
MSA.VO- 
MSGEXP 
MSGLOO 
MSGSTA 
MSGSUB 
MS. ATT- 
MS. EXT- 
MS.RSO- 
MS.RSF- 
MS.RST- 
M6106 
M6189 
NBA 

NEWPAS 
NOOCV 
NOEXTF 
NOINIT 
NOINTR 
NOITS 
NOMAN 
NOMEM 
NP.IR • 
NP.LOO- 
NP.OUT- 
NP.WRP- 
NSI 

NSINIT 
NUL 
NULCR 
NXM 
NXMFLG 
NXMHI 
NXH.0 
NXMTST 
NXR 

NXRERR 
NXRX 
NXTU 



056560 
060024 
066714 
065054 
074556 
077730 
101406 
101432 
101552 
013754 
021276 
020447 
020574 

o^^4 76 

073442 
000250 
000006 
000000 
000004 
000002 
012144 
015064 
012350 
013742 
000006 
000200 
000001 
000020 
000010 
005554 
005645 
002000 
022056 
003114 
030256 
004335 
004221 
002170 
020554 
005460 
000200 
000040 
000100 
000020 
004152 
004407 
004527 
004550 
004000 
003156 
003142 
003140 
021452 
003740 
005736 
003777 
022050 



OFL 

ONEFIL- 
OIAPTS- 
OIAU ■ 

OIBGNR- 
OIBGNS- 
OIDU • 
OIERRT- 
OIGNSW- 
OIPOIN- 
OISETU- 
PASRPT 
PATCH 
PATOAT 
PC. ERA- 
PC. IER- 
PCNOO- 
PC.REL- 
PC.REW- 
PKBCNT- 
PKMI ■ 
PKLOU ■ 
PK TAOO 
PKTFRM 
PKTGET 
PKTMES 
PKTRAM 
PKTSSR 
PNT 

PRAMPK 
PRASC 
PR8EXP 
PRfltfSG 
PRBREC 
PRBTOT 
PR0YTE 
PRI 

PRIAOO 
PRIAO 
PRIBXO 
PRIEOU 
PRIPKT 
PRIRAM 
PRITAO 
PRITSS 
PRITO 
PRIT1 
PRIXOR 
PRIOO 
PRI01 
PRI02 
PRI03 
PRI04 
PRI05 
PRI06 
PRI07 
PRMESS 



000100 

000000 

000000 

000001 

000001 

000001 

000001 

000000 

000001 

000001 

000000 

022102 

101712 

020250 

002400 

002000 

001000 

000000 

000400 

000006 

000004 

000002 

007554 

007516 

012064 

012110 

0O4745 

0X2046 

001000 

0)3776 

014523 

015470 

015356 

015472 

015423 

015122 

002000 

010160 

010230 

007612 

010060 

007370 

010066 

010274 

006024 

010356 

010421 

007742 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

014242 



PRMNO 

PRhSGE 

PRMSGO 

PRM5G1 

PRMSG2 

PROASC 

PR1ASC 

PST32W 

PUNIT 

PW.011 

PW.013 

PW.D22 

PW.NOP 

PU.N01 

PW.ROE 

PW.ROR 

PW.RDS 

PW.RFI 

PW.WCT 

PW.WFI 

PW.WFM 

PW.WMI 

PW.UNP 

PW.UTR 

P.ACK 

P.CK) 

P.CONT 

P.CVC 

P.FMT 

P.FOPM 

P. GETS 

P. IE 

P.INIT 

P.MOOE 

P.OPP 

P.POSI 

P.REAO 

P.SWB 

P. WRIT 

P.UKTC 

P.URTS 

QVP 

RAMASC 

RAMOAT 

RAMERR 

RAMEXP 

RAMFOR 

RAMS 12 

RAMTAO 

RCVHIA 

RCVLOA 

ROERR 

RECMSG 

RECV 

RF.GSAV 

RETEWR 

REWIND 



002320 
014552 
014732 
014777 
015035 
014420 
014465 
OC3152 
022332 
000021 
000022 
000020 
000000 
000023 
000024 
000001 
000005 
000003 
000006 
000004 
000007 
000010 
000011 
000002 
100000 
000037 
000012 
040000 
000140 
000011 
000017 
000200 
000013 
007400 
020000 
000010 
000001 
010000 
000005 
000004 

000006 
002204 
014156 
0C2242 
015510 
015530 
010116 
002302 
015516 
00?304 
002306 
005206 
002466 
002234 
020140 
005372 
011014 



G 



C4 
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SEQ 0248 


SYMBOL 


TABLE 






















RMCHBE- 


000167 


Sl.IIO- 


004000 




TST40I 


101372 


T10 


066716 G 


T15BFR 


033442 




RMCHEN- 


000200 


S1.I1R- 


020000 




TSV2 


002000 G 


Til 


074560 G 


T15BF2 


034130 




RMMSG8- 


000215 


S1.I2R- 


040000 




TSV3 


002176 G 


T12 


077732 G 


T15BS0 


034130 




RMMSGE- 


000234 


SI. PAR- 


100000 




TSV4 


021546 G 


T12BFR 


030332 


T158S1 


034131 




RHPKTB- 


000201 


S2.ATI- 


000010 




TSV5 


023474 G 


T126KG 


033007 


T150AT 


033430 




RMPKTE- 


000210 


S2.BTI- 


000004 




TSV6 


101410 G 


T12BLK 


030364 


T15L00 


032074 




RMR 


010000 


S2.DIM- 


000200 




TTIBFR- 


177562 G 


T12CHA 


032000 


T15PAC 


033420 




Ri*>ACK 


011110 


S2.ILW- 


000100 




TTICSR- 


177560 G 


T12CKR 


031560 G 


T15PK2 


034120 




SC 


100000 


S2,INR- 


000020 




TTION 


100456 


U2C0N 


031366 


T15RES 


034522 




SCE 


020000 


S2.0UT- 


000040 




TTI0N2 


071504 


T120AT 


030320 


T15RT2 


034574 




SCHERR 


005300 


S2.UND- 


000003 




TTIVEC- 


000060 G 


T120P1 


031166 


T15SSR 


034136 




SCME 


005013 


TBLEND- 


003062 


G 


TVECSA 


100460 


T12GET 


030546 


T15S2 


034132 




SCMENU 


100464 


TCOASC 


006476 




TVSAV2 


071506 


T12HIA 


030352 


T15S3 


034134 




SDELAY 


010660 


TCOCOO 


006676 




TIARGC- 


000001 


T12KT 


030360 


T16BEN 


040310 




SELASC 


020442 


TEMPI 


003116 


G 


TICOOE- 


001130 


T12L0A 


030354 


T16BFR 


040262 




SELDAT- 


000004 


TEMP2 


003120 


G 


TIERflN- 


002261 


T12L00 


0264 76 


T16BFS 


040302 




SEL2 - 


000002 


TERCtS- 


000016 




TIEXCP- 


000000 


U2MSG 


030711 


T16CLR 


040126 




SETMAP 


017316 


TESTNO- 


000014 




T«FLAG- 


000040 


T12NIN 


031075 


T160AT 


040250 




SETU 


022134 


TEXASC 


006435 




TtGMAN- 


000000 


T12NXh 


031257 


T160T2 


040320 




SFFMSG 


012102 G 


TFCASC 


006537 




TIHILI- 


000776 


T12PAC 


030310 


T 16001 


036702 




SFHERR 


003705 


TIMEXP 


015552 


G 


TILAST- 


000001 


t?2P AP 


030356 


116028 


036704 




SFIERR 


003652 


TIMSGO 


015600 




TILOLI' 


000000 


T12SET 


031736 


116053 


036706 




SFIMSG 


012034 G 


TINERR 


012021 




T$LSYM< 


010000 


T12SWR 


031670 


T 16078 


036710 




SFPTBL 


002166 G 


TM>BFR 


002632 


G 


TILTNO' 


000014 


T12TBE 


030516 


T16LEN 


037232 




SIFLAG 


003154 G 


TNAM 


016704 




TINEST' 


• 177777 


T12WRT 


030622 


T16L00 


034652 




SIMSG 


011766 


TPRISA 


100462 




TINSO ■ 


. 000000 


T121L0 


026610 


T16PAC 


040240 




SKIPT 


003400 


TPSAV2 


071510 




TINS1 ' 


• 000005 


T122L0 


027144 


T16PK2 


040310 




SOFINI 


015774 G 


TRANST 


002166 


G 


TINS2 > 


. 000002 


T123C0 


027364 


T16REJ 


037344 




SPACE 


010466 G 


TSBA - 


000000 


G 


TMS3 ■ 


■ 000003 


T124L0 


030006 


T16RES 


O4O06O 




SPM1 


101552 


TS8AH » 


000001 


G 


TIPTNU' 


• 000000 


T124TS 


030362 


T16SEX 


040220 




SPM4 


101602 


TS06 ■ 


000000 


G 


TISAVL' 


' 177777 


T13BFR 


024112 


Y16SR0 


040152 




SPt16 


101632 


TS06H - 


000001 


G 


TISEGL- 


• 177777 


T130AT 


024100 


T16SSR 


036762 




SPM7 


101662 


TSFCOO 


007236 




TISEKO< 


■ 010000 


T13L00 


023512 


T16TS8 


037130 




SRO 


• 177572 


TSREJ - 


000006 




TISU8N' 


' 000000 


T13MEM 


024205 


T16T01 


037461 




SRI 


■ 177574 


TSSOEF 


006606 




TITAGL- 


i 177777 


T13NBA 


024244 


T16T28 


037560 




SR2 


■ 177576 


TSSR • 


000002 


G 


TITAGN- 


• 010102 


T13PAC 


024070 


T16T53 


037660 




SR3 


■ 172516 


TSSR8I 


003502 


G 


TITEMP* 


■ 000000 


T13R£S 


024406 


T16T78 


037760 




SSR 


• 000200 


TSSRFO 


006415 




TITEST 


■ 000014 


T13SSR 


024317 


T16gMI 


040172 




STATCO 


012412 


TSSRH - 


000003 


G 


T$TSTh- 


• 177777 


T14BFR 


025226 


T162SS 


037017 




SVCG8L' 


. 000000 


TSSX 


004020 




TITSTS 


• 000001 


T14RS0 


025220 


T163SS 


037063 




SVCINS' 


■ 000000 


TSTBLK 


002752 


G 


TMAU ' 


• 010031 


T14AS1 


025221 


T17BEN 


050412 




SVCSUB- 


■ 000001 


TSTCNT 


002214 


G 


TIIAUT- 


• 010033 


Ti4«sa 


025222 


T17BFR 


050272 




SVCTAG- 


. 000000 


TSTEND 


016720 




TMCLE 


• 010034 


T14UM 


025220 


T17BFS 


050312 




SVCTST- 


■ 000001 


TSTFLA 


002314 


G 


TMDU ■ 


• 010032 


T14DTA 


025640 


T17CLF 


050176 




SILSYM- 


• 010000 


TSTLOO 


016456 


G 


TIIHAR 


• 010100 


T14L00 


024474 


T17CLR 


05O010 




so.ioe 


■ 000010 


TSTPTR 


002316 


G 


TMMW 


• 010000 


T14NBA 


025652 


T17DAT 


050260 




SO.IFB- 


• 000002 


TSTSET 


016510 


G 


TMINI 


• 010030 


T14NIK 


026113 


T17DT2 


050430 




SO.IFP. 


. 000001 


TST12I 


030520 




TMMSG 


• 010025 


T14PAC 


025210 


T17EXE 


C46554 




SO.ILD" 


- 000020 


TST13I 


024132 




TMPRO 


• 010027 


T14PK2 


025630 


T17EXP 


046432 




SO. ION 


• 000040 


TST14I 


026271 




TMRPT 


• 010035 


T14RES 


026336 


T17EXS 


046452 




SO.IRO 


• 000100 


TST15I 


034503 




TIISEG 


■ OlOOOO 


T14RST 


026374 


T17L00 


040454 




SO.IRW 


. 000004 


TST16I 


036712 




TMSOF 


• 010101 


T14SSR 


026023 


T17MSK 


046426 




SO. ISP 


• 000200 


TST17I 


046656 




TIISRV 


• 010026 


T14TSB 


026205 


T17PAC 


050250 




SLICE 


■ 0020O0 


TST18I 


051246 




YMSUB 


- 010074 


U42RE 


025726 


TWPK2 


050420 




Sl.IEO 


> 010000 


TST19I 


060232 




T$$SW 


• 010001 


T15AM2 


034212 


T17RFI 


050156 




Sl.IFH 


• 001000 


TST20I 


065232 




TMTES 


- 010077 


T15AM3 


034313 


T17RSF 


050054 




S1.IH6 


■ 000400 


TSTJ9I 


077702 




Tl 


023474 G 


U5AM4 


034415 


U7S£T 


050216 





D4 
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SYMBOL TABLE 



SEQ 0249 



T17SNP 
T175R0 
T17SSR 
T17WFD 
T17WKI 
T171CM 
T172CM 
T172SS 
T173CM 
T173SS 
T 1.74 CM 
T174SS 
T175CM 
T175SS 
T176CM 
T176SS 
T177CP 

usbfr 

T18CMP 
TlftOftT 
U5DT2 
1 18SXP 

T ;/\oo 

T1BMSK 
T18PAC 
?*PK2 
U95ET 
T1SSMI 
T18SR0 
TIASSR 
TlfiXS 
T182SS 
T185S5 
U96EN 
I 198FC 
Ti9t*FR 

Ti9ers 

T19CLf 
T19CLR 
U9CNV 
T190AT 
M90T2 

T19F.XE 
T19EXP 

T19EXS 

T19L00 
T19MSK 

T19PAC 
T19PK2 
U9PKE 
T19RF I 
T19R5F 

U9RST 
T19SET 
T195EX 
T 19SNP 
T19SR0 



050076 

050034 

046675 

046554 

050122 

047215 

047277 

046732 

047373 

046776 

047457 

04 7043 

047542 

047106 

047616 

047152 

047724 

051752 

(51453 

051740 

052010 

051216 

050556 

051212 

051730 

052000 

051620 

051576 

051556 

051305 

051242 

051542 

051406 

062522 

060046 

062402 

062422 

062250 

0620O4 

062314 

062370 

062540 

060232 

060112 

060132 

052036 

060106 

062360 

062530 

060044 

062116 

062050 

061700 

062270 

062232 

0620/2 
062030 



T19SSR 

T19WCT 

T19WTI 

T19WFM 

T19WST 

T191CM 

T192CM 

T192SS 

U93CM 

T193SS 

T194SS 

T195CM 

T195SS 

T196CM 

T196SS 

T197CM 

T197SS 

T198CM 

T198SS 

T199CM 

T2 

T2.1 

T2.2 

T20BEN 

T206FR 

T206FS 

T20CLE 

T20CLR 

T20CUP 

T200AT 

T200T2 

T20CXE 

T20EXP 

T20EXS 

T2OL00 

T20MSK 

T20PAC 

T20PK2 

T20RFI 

T20RSF 

T20SET 

T20SEX 

T20SR0 

T20SSR 

T20SUP 

T20WFI 

T20WFM 

T20WMI 

T20WNP 

T202SS 

T203S5 

T204SS 

T205SS 

T206SS 

T2085S 

T23A 

T23B 



060273 

062172 

062136 

062212 

061573 

060730 

061012 

060330 

061106 

060374 

060441 

061174 

060504 

061250 

060550 

061433 

060613 

061421 

060662 

06l5iO 

024456 

024474 

024744 

066572 

066452 

066472 

066364 

066152 

066057 

066440 

066610 

065232 

065112 

065132 

062664 

065106 

066430 

066600 

066236 

065756 

066404 

066346 

066176 

065261 

065647 

066256 

066312 

066332 

066216 

065316 

065362 

065427 

065472 

065536 

065601 

003144 

003146 



T3 

T3BFLG 

TS.l 

T3.2 

T3,3 

T3.4 

T38ASC 

T38ASN 

T38ASO 

T38AS1 

T388FR 

T38BS0 

T588S1 

T388S2 

T38CNT 

T380AT 

T380LY 

T380SW 

T380TA 

T38EAI 

T38EB 

T38I0 

T38INT 

T38MBP 

TS8MSG 

T38HS1 

T58MS2 

T58MS5 

T 38MB A 

T58NE 

T380FL 

T380NL 

T38PAC 

T38PK2 

T38PK3 

T38PK4 

T58RES 

T38SI2 

T38SSR 

T38SST 

T38TA0 

T58WLE 

T38WR 

T58WKL 

T58WRT 

T396FR 

T39BS0 

T39851 

T396S2 

T390AT 

T390LY 

T390SW 

T390TA 

T39EAI 

T39ETN 

T59CTS 

T39MCL 



026450 

003150 

026476 

027036 

027326 

027624 

074511 

074530 

074406 

074453 

071536 

071530 

071531 

071532 

074554 

074044 

071512 

072240 

072230 

072236 

072212 

075415 

073006 

074104 

073355 

073216 

073311 

072355 

072642 

072300 

073072 

073056 

071520 

072220 

072250 

072270 

074046 

072276 

072716 

073126 

071530 

072575 

072272 

072534 

072450 

076016 

076010 

076011 

076012 

077642 

075774 

076520 

076510 

076516 

076721 

076632 

077563 



T39NBA 


077255 


T59NE 


076553 


T59NFL 


076550 


T390FF 


077545 


T390F2 


077014 


T590N 


077554 


T390N2 


077060 


T39PAC 


076000 


T39PK2 


076500 


T39PK3 


076530 


T39PK4 


076540 


T39RES 


077644 


T39RL 


077640 


T395BS 


077473 


T59SFS 


077421 


T59SIZ 


C76546 


T59SSR 


077331 


T39TA0 


076010 


T39WPN 


077176 


T39WR 


076542 


T39WRT 


077123 


Y4 


032044 G 


T4.1 


032074 


T4.2 


052400 


T4.3 


032772 


T40NE 


101325 


T5 


054654 G 


T5.1 


054652 


T5.2 


055752 


T6 


040426 G 


TG.l 


040454 


T6,2 


040744 


T6.3 


042154 


T6.4 


043514 


T6.5 


044072 


T6.6 


045544 


T7 


050540 G 


T8 


052020 G 


T8.1 


052056 


T8.2 


054056 


T8.3 


055524 


T8.4 


056574 


T9 


062646 G 


T9.1 


062664 


UAM 


000200 G 


UNJ.TN 


002202 G 


UNREC * 


000006 


USI 


004125 


UAITF 


016250 G 


UC.XFA- 


000200 


WC.IFE- 


000002 


WC.IGO- 


000001 


UC.IRE- 


000010 


WC.IRW- 


000004 


WC.IOT- 


000100 


WC . 1 1 T • 


000040 


WC.I5R- 


000020 



wf.ieo" 

WF.IER- 

WF.IHI- 

WF.IRE- 

WF.IWF- 

WF.IUR. 

WF.I5R- 

WF.I4R- 

WRTCMR 

WRTERR 

WRTMSG 

WSMBK 

XFERAS 

XNXM 

XORBFO 

XORFOR 

XSTO 

X5T1 

XST2 

XST5 

XST4 

XSOBOT 

XSOEOT 

X50IE 

XSOILA 

X50ILC 

XSOLET 

XSOflOT 

XSONEF 

XSOONL 

XSOPED 

XSORLL 

XSORLS 

XSOTMK 

XSOVCK 

XSOWLE 

XSOWLK 

XXCOMM 

XIALWA 

XtFALS 

XIOFFS 

XI TRUE 

XI, COR 

Xl.DLT 

Xl.MBZ 

Xl.RBP 

XI, SPA 

Xl.UNC 

X2.BUF 

X2.EXT 

X2.0PM 

X2.RCE 

X2.REV 

X2.SPA 

X2.UNI 

X2.UCF 

X5.DCK 



G 
G 
G 
G 
G 



000010 
000004 
0002CO 
000040 
000020 
000100 
000002 
000001 
010662 
005113 
005056 
021270 
015740 
016376 
007674 
010012 
000006 
000010 
000012 
0OO014 
00001S 
000002 
OOOOOl 
000040 
000400 
001000 
020000 
000200 
002000 
000100 

ooocio 

010000 

040000 

100000 

00O020 

004000 

000004 

003122 G 

OOOOOO 

000040 

000400 

000020 

020000 

100000 

017575 

000400 

040000 

000002 

000100 

000200 

100000 

040000 

00007 7 

035400 

000007 

002000 

000010 



HI 
CI 
01 
El 
Fl 
Gl 
HI 
II 
Jl 
Kl 
LI 
Ml 
Nl 



.B2 

.C2 
.0? 
,E2 
,F2 

.G2 
.H? 
.12 
,J2 
.K2 
.L2 
.M2 
.N2 



.B3 

.C3 
.03 
.E3 

.F3 
.G5 
.H3 
.13 
.J3 
.K3 
.1.3 
,M3 
,N3 



.H4 
.C4 
.04 
.E4 



